

Y! 




*> v 


******** 


************ 




* 


* 


* 


# 


# 


# 


# 


* 


* 


* 


Report Name: 


KEVDIS 


Date: Gl-Apr-1%2 




















Time: 


14:09:20 


job Number: 


00990 


i oration Na#? 


«Ob**AUL ’ 








$ 


% 


% 


* 


* 


* 


t 




M A. 


j. *. At *t *t * 


u| 




LINE 

ADDR 

B 1 

B2 

B3 B4 


SWEET 16 EQUATE 

421 






. LIST 

422 






. TITLE 

423 






i 

424 






; SOURCE FILE = 

425 






# 

426 






. NLIST 

427 






. NAME 

428 






i 

429 






. PSCT 

430 






# 

431 






. XDEF 

432 






. XDEF 

433 






. XDEF 

434 






. XDEF 

435 






. XDEF 

436 






# 

437 






. XREF 

438 






. XREF 

439 






. XREF 

440 






. XREF 

441 






. XREF 

442 






. XREF 

443 






. XREF 

444 






. XREF 

445 






. XREF 

446 






. XREF 

447 






. XREF 

448 






. XREF 

449 






. XREF 

450 






/ 

451 






. XREFB 

452 






. XREFB 

453 






. XREFB 

454 






. XREFB 

455 






. XREFB 

456 






. XREFB 

457 






. XREFB 

458 






. XREFB 

459 






. XREFB 

460 






. XREFB 

461 






. XREFB 

462 






. XREFB 

463 






/ 

464 






i 

465 

0000 

A9 

FF 



PWRONA: LDA 

466 

0002 

8D 

00 

00 

E 

STA 

467 

0005 

AD 

00 

00 

E 

LDA 

468 

0008 

85 

00 


E 

STA 

469 

OOOA 

A9 

40 



LDA 

470 

OOOC 

8D 

00 

00 

E 

STA 

471 

OOOF 

A9 

97 


P 

LDA 

472 

001 1 

85 

00 


E 

STA 

473 

0013 





LDAIH 

478 

0015 

85 

01 


E 

STA 


PAGE 


S, X 

'DISPLAY HANDLER 
= KEYDIS. 

A 

KEYDIS 


PWRONA, RETUR1, NOFUNC 
DOPEN, GETCH, OUTCH, DRAW 
EQPEN, EGETCH, EOUTCH 
KGETCH 
PIRG5 

CH, MEMTOP, SHFLOK, CHBAS 
CHACT, SDMCTL, TINDEX, CRSINH 
TABMAP, COLORO, TXTMSC, GPRIQR 
COLOR 4, BOTSCR, SDLSTL 
TXTROWi TXTCOL, DM ASK, CHAR 
ATACHR, SSFLAG, ESCFLGi DSPFLG 
INVFLG, LOGMAP, SCRFLG, SUBTMP 
H0LD2/ TMPLBT » H0LD3 
IMP ROW, FILFLG, H0LD4, CHI 
KEYDEL, SRTIliR, FILDAT, NOCLIK 
HELPFG, DMASAV, SUP ERF, FINE 
NEWROW, NEWCOL, ROWINC, COLINC 
KRPDEL, VSFLAG, KEYDIS, RAMSIZ 

RAMTOP, ICAX2Z, ICAX 1 Z, DINDEX 
DSTAT , POKMSK, ADRESS, SWPFLG 
HOL.D1 , OPNTMP, SAVMSC-, SAVADR 
LMARGN, RMARGN, ROWCRS, SHF AMT 
OLDROW, TMPC HR , OL.DCHR, BUFCNT 
BUFSTR , COLORS, LOGCOL, BRKKEY 
HOLDCH, INSDAT, FRMADR, TOADR 
APPMHI , MLTTMP, OLDADR, ROWAC 
ENDPT, BITMSK, ICCOMZ 
DELTAR 

OLDCOL, DELTAC, COLAC 
COUNTR, ATRAC T, KEYDEF, FKDEF 


#$FF 

CH 

RAMSIZ 

RAMTOP 

#$40 

SHFLOK 

#. LOW. ATASCI 

KEYDEF 

ATASC I 

KEYDEF+1 


— 10-30-78 — DISPLC ' 


; DEFAULT TO UPPER CASE ALPHA AT PWRQN 

i SETUP KEYBOARD DEFINITION TABLE POINTER. 


ERR LINE 

ADDR 

B 1 

B2 B3 B4 


DISPLAY HANDLER 

— 10-30-78 — DISPL.C PAGE 2 

479 

0017 

A9 

57 

P 

LDA 

#. LOW. FUNCKY ; SETUP FUNCTION KEY DEF TABLE POINTER. 

480 

0019 

85 

00 

E 

STA 

FKDEF 

481 

00 IB 




LDA IH 

FUNCKY 

486 

00 ID 

es 

01 

E 

STA 

FKDEF-*- 1 

487 

00 IF 

60 



RTS 

i POWER ON COMPLETED 

\ 


i POWER ON COMPLETED 


ERR LINE 

ADDR 

B1 

B2 

B3 B4 


DISPLAY HANDLER 

— 10-30 

-78 — DISPLC PAGE 3 

488 







. PAGE 



489 










490 






; BEGIN 

DISPLAY 

HANDLER OPEN PROCESSING 

491 










492 

0020 

A5 

00 


E 

DOPEN: 

LDA 

ICAX2Z 

; GET AUX 2 BYTE 

493 

0022 

29 

IF 




AND 

#$1F 


494 







. IF 

FALSE 

; ALLOW MODE 0 SPLIT SCREEN. 

495 







BNE 

OPNCOM 

; IF MODE ZERO, CLEAR ICAX1Z 

496 







. ELSE 



497 

0024 

4C 

2F 

00 

P 


JMP 

OPNCOM 


498 







. ENDIF 



499 

0027 

A5 

00 


E 

EOPEN: 

LDA 

ICAX1 Z 

; CLEAR "CLR INHIBIT" AND "MXD MODE" BITS 

500 

0029 

29 

OF 




AND 

#$F 


501 

002B 

85 

00 


E 


STA 

ICAX1Z 


502 

002D 

A9 

00 




LDA 

#0 


503 

002F 

85 

00 


E 

OPNCOM: 

STA 

D INDEX 


504 

0031 

C9 

1 1 




CMP 

#17 


505 

0033 

90 

05 




BCC 

D0PEN6 

; MODE < 17* (0 - 16). 

506 

0035 

A9 

91 




LDA 

#BADMOD 


507 

0037 

4C 

El 

01 

P 


JMP 

DERR 


508 

003A 

A9 

EO 



D0PEN6: 

LDA 

#DOMCHR 

; INITIALIZE GLOBAL VBLANK RAM 

509 

003C 

8D 

00 

00 

E 


STA 

CHBAS 


510 






i 




51 1 

003F 

A9 

02 




LDA 

#2 


512 

0041 

8D 

00 

00 

E 


STA 

CHACT 


513 

0044 

8D 

00 

00 

E 


STA 

SDMCTL 

; TURN OFF DMA NEXT VBLANK 

514 






i 




515 

0047 

A9 

01 




LDA 

#SUCCES 


516 

0049 

85 

00 


E 


STA 

DSTAT 

* CLEAR STATUS 

517 






j 




518 

004B 

A9 

CO 




LDA 

#$C0 

; DO IRQEN 

519 

004D 

05 

00 


E 


ORA 

PGKMSK 


520 

004F 

85 

00 


E 


STA 

POKMSK 


521 

0051 

8D 

OE 

D2 



STA 

IRQEN 


522 






/ 




523 

0054 

A9 

40 




LDA 

#$40 

; IF FINE SCROLLING ENABLE DLI . 

524 

0056 

2C 

00 

00 

E 


BIT 

FINE 


525 

0059 

10 

02 




BPL. 

NOFINE 

; NOT FINE SCROLLING < VBLANK ONLY). 

526 

005B 

A9 

CO 




LDA 

#$C0 


527 

005D 

8D 

OE 

D4 


NOFINE: 

STA 

NMIEN 


528 






# 




529 

0060 

A9 

00 




LDA 

#0 


530 

0062 

8D 

00 

00 

E 


STA 

TINDEX 

; TEXT INDEX MUST ALWAYS BE 0 

531 

0065 

85 

00 


E 


STA 

ADR ESS 


532 

0067 

85 

00 


E 


STA 

SWPFLG 


533 

0069 

8D 

00 

00 

E 


STA 

CRSINH 

*• TURN CURSOR ON AT OPEN 

534 






» 




535 

006C 

AO 

OE 




LDY 

#14 

* CLEAR TAB STOPS 

536 

006E 

A9 

01 




LDA 

#1 

; INIT TAB STOPS TO EVERY 8 CHARACTERS 

537 

0070 

99 

00 

00 

E 

CL.RTBS: 

STA 

TABMAP, Y 


538 

0073 

88 





DEY 



539 

0074 

10 

FA 




BPL 

CLRTBS 


540 






/ 




541 

0076 

A2 

04 




LDX 

#4 

* LOAD COLOR REGISTERS 


ERR LINE ADDR B1 B2 B3 B4 


DISPLAY HANDLER — 10-30-78 — DISPLC 


PAGE 


942 

943 

944 
949 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

58 1 


0078 
007B 
00 7E 
007F 

0081 

0083 

0084 
0087 
0089 

008C 
008E 
0091 
0093 
0095 
0097 
009A 
009C 
009F 
00A0 


BD 4E OC 
9D 00 00 
CA 

10 F7 

A4 00 
88 

8C 01 00 
A9 60 
9D 00 00 

A6 00 
BD D5 OB 
85 00 
A5 00 
85 01 
BC A2 OB 
A9 28 
20 30 06 
88 

DO F8 


582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 


00A2 
00A5 
00A7 
00A9 
OOAA 
00 AC 
OOAE 
OOBO 
00B2 
00B4 
00B6 
00B7 
00B8 
OOB 9 
OOB A 
OOBC 
OOBE 
OOBF 
00C1 
00C4 
00C6 
OGCB 
OOCA 
OOCD 


AD 00 00 
29 3F 
85 01 
A8 

EO 08 
90 IF 
EO 10 
FO OD 
EO OC 
BO 17 
8A 
6A 
6A 
6A 

29 CO 
05 01 
Ae 

A9 10 
20 30 06 
EO OB 
DO 05 
A9 06 
8D 00 00 
8C 00 00 


OODO 

00D2 

00D4 

00D6 

00D8 

OODB 


A5 00 
85 00 
A5 01 
85 01 

AD OB 
C9 7 A 


P 

E 


E 

E 


E 

P 

E 

E 

E 

P 


D0PEN8: 


E 

E 


E 

E 

E 

E 

E 

E 


D0PEN1 


STA 

DEX 

BPL 

LDY 

DEY 

STY 

LDA 

STA 

LDX 

LDA 

STA 

LDA 

STA 

LDY 

LDA 

JSR 

DEY 

BNE 

LDA 

AND 

STA 


ROR 

ROR 

AND 

ORA 

TAY 

D0P030: LDA 


/tfPX 

(BNE 


N0T8: 


D4 


VBWAIT: 


LDA 

STA 

STY 

LDA 

STA 

LDA 

STA 

LDA 

CMP 


COLRTB , X 
COLORO, X 

DOPEN8 

RAMTOP 

TXTMSC+1 

#$60 

TXTMSC 

DINDEX 
ANCQNVi X 
H0LD1 
RAMTOP 
ADRESS+1 
ALOCAT, X 
#40 
DBSUB 

D0PEN1 

GPRIOR 

#$3F 

OPNTMP+1 


; DO TXTMSC =$3F60 (IF MEMT0P=4000) 


; CONVERT IT TO ANTIC CODE 

; SET UP AN INDIRECT POINTER 

; ALLOCATE N BLOCKS OF 40 BYTES 
; ADRESS : - ADRF.SS- < 40*N ) . 


; CLEAR GT I A MODES 



A 

A 

#$C0 

OPNTMP+1 

#16 

JDBSUB 


; NOW 2 TOP BITS 


#11 

N0T8 


; SUBTRACT 16 MORE FOR PAGE BOUNDARY 
:U1F UAN1T a | ] ^ BOUNDARY AT XOOO. 

; TEST MODE 
; IF MODE 


A. L11ME 
IE 11 \ 


if rr 

C0L0R4 

GPRIOR 

ADRESS 
SAVMSC 
ADRESS+1 
SAVMSC+ 1 

VCOUNT 

#*7A 


; PUT GT I A LUM VALUE INTO BACKGROUND REGISTER 


; STORE NEW PRIORITY 


; SAVE MEMORY SCAN COUNTER ADDRESS 


; WAIT FOR NEXT VBLANK BEFORE MESSING 
; WITH THE DISPLAY LIST 


ERR LINE 

ADDR 

B 1 B2 B3 B4 


DISPLAY HANDLER — 10-30 

-78 — DISPLC PAGE 5 

596 

00DD 

DO F9 



BNE 

VBWAIT 


597 




i 




598 

OODF 

20 2E 06 

P 


JSR 

DBDEC 

; START PUTTING DISPLAY LIST RIGHT UNDER RAM 

599 




# 




600 

00E2 

BD E6 OB 

P 


/CD A 

~PAGETB, X 

; TEST IF DISPLAY LIST WILL BE IN TROUBLE") 

601 

00E5 

FO 06 


1 

\J3EQ 

NOMOD 

i nr CROSSING a 256 BYTE PAGF nnuNnARv — 

602 

00E7 

A9 FF 



LDA 

#$FF 

; IF SO/ DROP DOWN A PAGE 

603 

00E9 

85 00 

E 


STA 

ADRESS 


604 

OOEB 

C6 01 

E 


DEC 

ADRESS+ 1 


605 




# 




606 

OOED 

20 22 06 

P 

NOMOD: 

JSR 

DBDDEC 

; (DOUBLE BYTE DOUBLE DECREMENT) 

607 

OOFO 

A5 00 

E 


LDA 

ADRESS 

; SAVE END OF DISPLAY LIST FOR LATER 

608 

00F2 

85 00 

E 


STA 

SAVADR 


609 

00F4 

A5 01 

E 


LDA 

ADRESS+ 1 


610 

00F6 

85 01 

E 


STA 

SAVADR+1 


611 




I 




612 

00F8 

A9 41 



LDA 

#$41 

; (ANTIC) WAIT FOR VBLANK AND JMP TO TOP 

613 

OOFA 

20 26 06 

P 


JSR 

STORE 


614 

OOFD 

86 00 

E 


STX 

OPNTMP 


615 

OOFF 

A9 18 



LDA 

#24 

; INITIALIZE BOTSCR 

616 

0101 

8D 00 00 

E 


STA 

BOTSCR 



617 

0104 

A5 00 

E 

/ 

<^Cda“ 

D INDEX 

.-DISALLOW MIXED MODE IF MODE 9-11, . . . \ 

618 

0106 

C9 OC 


f 

CMP 

#12 

i . . . TEXT IS UNREADABLE. / 

619 

0108 

BO 04 


/ 

BCS 

MIXOK 

; MODE >= 12. / 

620 

010A 

C9 09 



CMP 

#9 


621 

010C 

BO 41 



BCS 

NOTMXD 

i MODE >= 9. 

622 

010E 

A5 00 

E 

MIXOK: 

LDA 

ICAX1Z 

/TEST MIXED MODE 

623 

01 10 

29 10 



AND 

#$10 


624 

0112 

FO 3B 



BEQ 

NOTMXD 


625 

0114 

A9 04 



LDA 

#4 


626 

0116 

8D 00 00 

E 


STA 

BOTSCR 


627 

01 19 

A2 02 



LDX 

#2 

, ADD 4 LINES OF TEXT AT BOTTOM OF SCREEN 

628 

01 IB 

AD 00 00 

E 


LDA 

FINE 

; FINE SCROLLING? 

629 

011E 

FO OB 



BEQ 

D0PEN2 

; NO. 

630 




# 




631 

0120 

A9 02 



LDA 

#$02 

; YES — ADD EXTRA LINE. 

632 

0122 

20 26 06 

P 


JSR 

STORE 


633 

0125 

A9 A2 



LDA 

#$A2 

; DLI ON LAST VISIBLE LINE. 

634 

0127 

20 26 06 

P 


JSR 

STORE 


635 

012A 

CA 



DEX 



636 




# 




637 

012B 

A9 22 


D0PEN2: 

LDA 

#$22 


638 

01 2D 

20 26 06 

P 


JSR 

STORE 


639 

0130 

CA 



DEX 



640 

0131 

10 F8 



BPL 

D0PEN2 


641 




# 




642 

0133 

A4 00 

E 


LDY 

RAMTOP 

; RELOAD MSC FOR TEXT 

643 

0135 

88 



DEY 



644 

0136 

98 



TYA 



645 

0137 

20 26 06 

P 


JSR 

STORE 


646 

013A 

A9 60 



LDA 

#$60 


647 

013C 

20 26 06 

P 


JSR 

STORE 


648 

013F 

A9 62 



LDA 

#$62 


649 

0141 

20 26 06 

P 


JSR 

STORE 



ERR LINE 

ADDR 

B 1 B2 B3 

650 

0144 

18 

651 

0145 

A9 11 

652 

0147 

65 OO 

653 

0149 

A8 

654 

014A 

BE B3 OB 

655 

014D 

DO 19 

656 

657 

01 4F 

A4 00 

658 

0151 

BE B3 OB 

659 

0154 

A5 00 

660 

0156 

DO 10 

661 

0158 

AD 00 00 

662 

015B 

F 0 OB 

663 

664 

01 5D 

A9 02 

665 

01 5F 

20 26 06 

666 

0162 

A9 A2 

667 

0164 

20 26 06 

668 

0167 

CA 


DISPLAY HANDLER — 10-30-78 — D1SPLC 


PAGE 


E 

P 


E 

P 

E 


669 

670 

671 

672 

673 


0168 

016A 

016D 

016E 


A5 

20 

CA 

DO 


00 

26 

F8 


06 


P 

P 


E 

P 


CLC 

LDA 

ADC 

TAY 

LDX 

BNE 

i 

NOTMXD: LDY 

LDX 
LDA 
DNE 
LDA 
BEQ 

i 

LDA 

JSR 

LDA 

JSR 

DEX 


#MXDMDE— NUMDLE * POINT X AT MIXED MODE TABLE 
OPNTMP 


D0PEN3. 


LDA 

JSR 

DEX 

BNE 


NUMDLE, Y 
D0PEN3 

OPNTMP 

NUMDLE, Y 

DINDEX 

D0PEN3 

FINE 

D0PEN3 

#$02 

STORE 

#$A2 

STORE 


H0LD1 

STORE 

D0PEN3 


682 

683 

684 

685 


01 7E 
0180 
0182 
0183 


A2 

A5 

38 

E9 


5D 

00 

10 


BIGGUN: 


LDX 

LDA 

SEC 

SBC 


RAMTOP 

#$10 


686 

0185 

20 

26 

06 

P 

JSR 

STORE 

687 

0188 

A9 

00 



LDA 

#0 

688 

018A 

20 

26 

06 

P 

JSR 

STORE 

689 

018D 

A 5 

00 


E 

LDA 

H0LD1 

690 

018F 

09 

40 



ORA 

#$40 

691 

0191 

20 

26 

06 

P 

JSR 

STORE 


692 


i ( JMP ) 


; GET NUMBER OF DISPLAY LIST ENTRIES 
i MODE 0? 

NO. 

FINE SCROLLING? 

NO. 


; YES — ADD EXTRA LINE. 


i DLI ON LAST VISIBLE LINE. 


; STORE N DLE'S 


674 





# 






675 

0170 

A5 

00 

E 


— CD A~ 

DINDEX 

; DO THE 

MESSY 

676 

0172 

C9 

08 



CMP 

#8 

; MODE < 

8. 

677 

0174 

90 

26 



BCC 

D0PEN5 



678 

0176 

C9 

10 



CMP 

#16 



679 

0178 

FO 

04 



BEQ 

BIGGUN 

; MODE = 

16. 

680 

01 7A 

C9 

OC 



CMP 

#12 



681 

01 7C 

BO 

IE 



— BCS 

D0PEN5 

; MODE > 

= 12. 


GET REMAINING NUMBER OF DLE'S 
RELOAD MEMORY SCAN COUNTER 


; START 4K BELOW RAMTOP. 


; (ANTIC) RELOAD MSC CODE 


693 

0194 

A5 

00 


E 

D0PEN4: 

LDA 

H0LD1 

i DO REMAINING DLE'S 

694 

0196 

20 

26 

06 

P 


JSR 

STORE 


695 

0199 

CA 





DEX 



696 

019A 

DO 

F8 




BNE 

D0PEN4 


697 






i 




698 

019C 

A5 

01 


E 

D0PEN5: 

LDA 

SAVMSC+i 

i POLISH OFF DISPLAY 

699 

019E 

20 

26 

06 

P 


JSR 

STORE 

; . . . WITH LMS. 

700 

01A1 

A5 

00 


E 


LDA 

SAVMSC 


701 

01 A3 

20 

26 

06 

P 


JSR 

STORE 


702 

01A6 

A 5 

00 


E 


LDA 

H0LD1 


703 

01A8 

09 

40 




ORA 

#$40 



6 


ERR LINE 

ADDR 

B 1 

B2 

B3 B4 


DISPLAY HANDLER — 10-30- 

704 

01 AA 

20 

26 

06 

P 


JSR 

STORE 

705 






# 



706 

01 AD 

A9 

70 




LDA 

#$70 

707 

01 AF 

20 

26 

06 

P 


JSR 

STORE 

708 

01B2 

A9 

70 




LDA 

#$70 

709 

01B4 

20 

26 

06 

P 


JSR 

STORE 

710 

01B7 

A5 

00 


E 


LDA 

ADRESS 

711 

01B9 

8D 

00 

00 

E 


STA 

SDLSTL 

712 

01BC 

A5 

01 


E 


LDA 

ADRESS+1 

713 

01 BE 

8D 

01 

00 

E 


STA 

SDLSTL+ 1 

714 

01C1 

A9 

70 




LDA 

#$70 

715 

01C3 

20 

26 

06 

P 


JSR 

STORE 

716 






i 



717 

01C6 

A5 

00 


E 


LDA 

ADRESS 

718 

01C8 

8D 

00 

00 

E 


STA 

MEMTOP 

719 

01 CB 

A5 

01 


E 


LDA 

ADRESS+1 

720 

01CD 

8D 

01 

00 

E 


STA 

MEMTOP +1 

721 






i 



722 

01 DO 

AO 

01 




LDY 

#1 

723 

01D2 

AD 

00 

00 

E 


LDA 

SDLSTL 

724 

01D5 

91 

00 


E 


STA 

(SAVADR), Y 

725 

01D7 

C8 





I NY 


726 

01D8 

AD 

01 

00 

E 


LDA 

SDLSTL+1 

727 

01 DB 

91 

00 


E 


STA 

(SAVADR), Y 

728 






i 



729 

01 DD 

A5 

00 


E 


LDA 

DSTAT 

730 

01 DF 

10 

07 




BPL 

D0PEN9 

731 

01E1 

48 




DERR: 

PHA 


732 

01E2 

20 

27 

00 

P 


JSR 

EOPEN 

733 

01E5 

68 





PLA 


734 

01E6 

AS 





TAY 


735 

01E7 

60 





RTS 


736 






t 



737 

01E8 

A5 

00 


E 

D0PEN9: 

LDA 

ICAX1Z 

738 

01EA 

29 

20 




AND 

#$20 

739 

01 EC 

DO 

OB 




BNE 

D0PEN7 

740 

01 EE 

20 

D4 

04 

P 


JSR 

CLRSCR 

741 

01F1 

8D 

00 

00 

E 


STA 

TXTROW 

742 

01F4 

A5 

00 


E 


LDA 

LMARGN 

743 

01F6 

8D 

00 

00 

E 


STA 

TXTCOL 

744 

01F9 

A9 

22 



D0PEN7: 

LDA 

#$22 

745 

01FB 

OD 

00 

00 

E 


ORA 

SDMCTL 

746 

01FE 

8D 

00 

00 

E 


STA 

SDMCTL 

747 

0201 

4C 

8F 

02 

P 


JMP 

RETUR2 

748 






# 



749 






/ 



750 

0204 

20 

74 

07 

P 

GETCH: 

JSR 

RANGE 

751 

0207 

20 

13 

02 

P 


JSR 

GETPLT 

752 

020A 

20 

14 

08 

P 


JSR 

INATAC 

753 

020D 

20 

B4 

06 

P 


JSR 

I NCR SB 

754 

0210 

4C 

A2 

02 

P 


JMP 

RETUR1 

755 






i 



756 

0213 

20 

56 

06 

P 

GETPLT: 

JSR 

CONVRT 

757 

0216 

B 1 

00 


E 


LDA 

(ADRESS), Y 


78 


DISPLC 


PAGE 
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; 24 BLANK LINES 


; SAVE DISPLAY LIST ADDRESS 


; ADD LAST BLANK LINE ENTRY 
; POSITION ADRESS=SDLSTL-1 

; STORE NEW MEMTOP 


; STORE DL JVB ADDRESS. 


; IF ERROR OCURRED ON ALLOCATION, OPEN THE ED 
; SAVE STATUS 

; OPEN THE EDITOR (RECURSIVE CALL!). 

; RESTORE STATUS 
i AND RETURN IT TO CIO 


; TEST CLEAR INHIBIT BIT 


; CLEAR SCREEN 

; AND HOME TEXT CURSOR (AC IS ZERO) 


; EVERYTHING ELSE IS SET UP 
; SO TURN ON DMACTL 


; GETCH DOES INCRSR, GETPLT DOESN'T 
; CONVERT INTERNAL CODE TO ATASCII 


; CONVERT ROW/COLUMN TO ADRESS 


ERR LINE ADDR B 1 B2 B3 B4 


DISPLAY HANDLER — 10-30-78 — DISPLC 


PAGE 


8 


758 0218 2D 00 00 

E 

AND 

DMASK 



799 02 IB 46 OO 

E 

SHIFTD: LSR 

SHF AMT i SHIFT DATA DOWN TO 

LOW BITS 

760 02 ID BO 03 


BCS 

SHIFT1 


761 02 IF 4A 


LSR 

A 



762 0220 10 F9 


BPL 

SHIFTD i (UNCONDITIONAL) 


763 0222 8D 00 00 

E 

SHIFT1 : STA 

CHAR 



764 0225 C9 00 


CMP 

#o 

RESTORE FLAGS ALSO 


765 0227 60 


RTS 



766 


i 




767 


i 




768 


1 




769 0228 8D 00 00 

E 

OUTCH: STA 

ATACHR 



770 


J JSR 

OFFCRS 



771 022B C9 7D 


CMP 

#CLS 

CLEAR SCREEN? 


772 022D DO 06 


BNE 

OUTCHE 

NO 


773 022F 20 D4 04 

P 

JSR 

CLRSCR 

YES. 


774 0232 4C 8F 02 

P 

JMP 

RETUR2 



775 0235 20 74 07 

P 

OUTCHE: JSR 

RANGE 



776 0238 AD 00 00 

E 

LDA 

ATACHR i TEST FOR CARRIAGE 

RETURN 

777 023B C9 9B 


CMP 

#CR 


778 023D DO 06 


BNE 

OUTCHB 



779 023F 20 OB 07 

P 

JSR 

DOCRWS 

DO CR 


780 0242 4C 8F 02 

P 

JMP 

RETUR2 



781 0245 20 4E 02 

P 

OUTCHB : JSR 

OUTPLT 



782 0248 20 B8 06 

P 

JSR 

I NCR SR 



783 024B 4C 8F 02 

P 

JMP 

RETUR2 



784 


i 




785 


i 




786 024E AD 00 00 

E 

OUTPLT : LDA 

SSFLAG 

*****LOOP HERE IF 

START/STOP FLAG IS NON-O 

787 0251 DO FB 


BNE 

OUTPLT 


788 0253 A2 02 


LDX 

#2 



789 0255 B5 00 

E 

CRLOOP : LDA 

ROWCRS, X 

SAVE CURSOR LOCATION FOR DRAW LINE TO DRAW 

790 0257 95 00 

E 

STA 

OLDROW, X 



791 0259 CA 


DEX 




792 02 5 A 10 F9 


BPL 

CRLOOP 



793 025C AD 00 00 

E 

LDA 

ATACHR 

CONVERT ATASCI I (ATACHR) TO INTERNAL ( CHAR ) 

794 025F A8 


TAY 


SAVE ATACHR 


795 0260 2A 


ROL 

A 



796 0261 2A 


ROL 

A 



797 0262 2A 


ROL 

A 



798 0263 2A 


ROL 

A 



799 0264 29 03 


AND 

#3 



800 0266 AA 


TAX 


X HAS INDEX INTO 

ATAINT 

801 0267 98 


TYA 


RESTORE ATACHR 

802 0268 29 9F 


AND 

#$9F 

STRIP OFF COLUMN 

ADDRESS 

803 026A ID 8F OC 

P 

ORA 

ATAINT, X 

□R IN NEW COLUMN 

ADDRESS 

804 026D 8D 00 00 

E 

0UTCH2: STA 

CHAR 


805 0270 20 56 06 

P 

JSR 

CONVRT 



806 0273 AD 00 00 

E 

LDA 

CHAR 



807 0276 46 00 

E 

SHIFTU: LSR 

SHFAMT 

SHIFT UP TO PROPER POSITION 

808 0278 BO 04 


BCS 

SHIFT2 



809 027A OA 


ASL 

A 



810 02713 4C 76 02 

P 

JMP 

SHIFTU 



811 027E 2D 00 00 

E 

SHIFT2: AND 

DMASK 




LINE 

ADDR 

B 1 

B2 

B3 B4 


DISPLAY HANDLER 

— 10-30- 

•78 — DISPLC PAGE 

812 

0281 

85 

00 


E 

STA 

TMPCHR 

; SAVE SHIFTED DATA 

813 

0283 

AD 

00 

00 

E 

LDA 

DMASK 

i INVERT MASK 

814 

0286 

49 

FF 



EOR 

#$FF 


815 

0288 

31 

00 


E 

AND 

(ADRESS), Y 

; MASK OFF OLD DATA 

816 

028A 

05 

00 


E 

ORA 

TMPCHR 

i OR IN NEW DATA 

817 

028C 

91 

00 


E 

STA 

(ADRESS), Y 


818 

028E 

60 




RTS 



819 






i 



820 






* 



821 

028F 

20 

13 

02 

P 

RETUR2: JSR 

GETPLT 

; DO CURSOR ON THE WAY OUT 

822 

0292 

85 

00 


E 

STA 

OLDCHR 

; GRAPHICS HAVE~" INVISIBLE CURSOR^ 

823 

0294 

A6 

00 


E 


DINDEX 

824 

0296 

DO 

OA 



Cbne 

RETUR1 

825 

0298 

AE 

00 

00 

E 

LDX 

CRSINH 

; TEST CURSOR INHIBIT 

826 

029B 

DO 

05 



BNE 

RETUR1 


827 

029D 

49 

80 



EOR 

#$80 

; TOGGLE MSB 

828 

029F 

20 

6D 

02 

P 

JSR 

0UTCH2 

i DISPLAY IT 

829 

02A2 

A4 

00 


E 

RETUR1: LDY 

DSTAT 

; RETURN TO CIO WITH STATUS IN Y 

830 

02A4 

A9 

01 



LDA 

#SUCCES 


831 

02A6 

85 

00 


E 

STA 

DSTAT 

i SET ST ATUS= SUCCESSFUL COMPLETION 

832 

02A8 

AD 

00 

00 

E 

LDA 

ATACHR 

; PUT ATACHR IN AC FOR RETURN TO CIO 

833 

02AB 

60 




NOFUNC : RTS 


; (NON-EXISTENT FUNCTION RETURN POINT) 

834 






I 



835 






; END OF DISPLAY HANDLER 


836 






i 




ERR LINE AD DR B1 B2 B3 B4 
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837 


. PAGE 



838 


I 



839 


i BEGIN OF SCREEN EDITOR 


840 


l 



841 


l 



842 02AC 20 00 0A 

P 

EGETCH: JSR 

SWAP 


843 02AF 20 66 07 

P 

JSR 

ERANGE 


844 02B2 A5 00 

E 

LDA 

BUFCNT 

ANYTHING IN THE BUFFER? 

845 02B4 DO 34 


BNE 

EGETC3 j 

YES 

846 02B6 A5 00 

E 

LDA 

ROWCRS 

NOi SO SAVE BUFFER START ADDRESS 

847 02B8 85 00 

E 

STA 

BUFSTR 


848 02BA A5 00 

E 

LDA 

COLCRS 


849 02BC 85 01 

E 

STA 

BUFSTR+ 1 


850 02BE 20 5F 03 

P 

EGETC 1 : JSR 

KGETCH i LET'S FILL OUR BUFFER 

851 02C1 84 00 

E 

STY 

DSTAT SAVE KEYBOARD STATUS 

852 02C3 AD 00 00 

E 

LDA 

ATACHR 

TEST FOR CR 

853 02C6 C9 9B 


CMP 

#CR 


854 02C8 FO 12 


BEQ 

EGETC2 


855 02CA 20 20 03 

P 

JSR 

DOSS 

NO, SO PRINT IT 

856 02CD 20 00 OA 

P 

JSR 

SWAP 

JSR DOSS DID SWAP SO SWAP BACK 

857 02D0 A5 00 

E 

LDA 

LOGCOL 

BEEP IF NEARING LOGICAL COL 120 

858 02D2 C9 71 


CMP 

#113 


859 02D4 DO 03 


BNE 

EGETC6 


860 02D6 20 OA 06 

P 

JSR 

BELL 


861 02D9 4C BE 02 

P 

EGETC6: JMP 

EGETC 1 


862 02DC 20 C2 07 

P 

EGETC2: JSR 

OFFCRS ; GET BUFFER COUNT 

863 02DF 20 4F 09 

P 

JSR 

DOBUFC 


864 02E2 A5 00 

E 

LDA 

BUFSTR ; RETURN A CHARACTER 

865 02E4 85 00 

E 

STA 

ROWCRS 


866 02E6 A5 01 

E 

LDA 

BUFSTR+1 


867 02E8 85 00 

E 

STA 

COLCRS 


868 02EA A5 00 

E 

EGETC3: LDA 

BUFCNT 


869 02EC FO 11 


BEQ 

EGETC 5 


870 02EE C6 00 

E 

EGETC 7: DEC 

BUFCNT 

AND RETURN TILL BUFCNT=0 

871 02F0 FO OD 


BEQ 

EGETC 5 


872 02F2 A5 00 

E 

LDA 

DSTAT 

IF ERR, LOOP ON EGETC7 UNTIL BUFR 

873 02F4 30 F8 


BMI 

EGETC7 


874 02F6 20 04 02 

P 

JSR 

GETCH 


875 02F9 3D 00 00 

E 

STA 

ATACHR 


876 02FC 4C 00 OA 

P 

JMP 

SWAP 

AND RETURN WITHOUT TURNING CURSOR 

877 02FF 20 OB 07 

P 

EGETC5: JSR 

DOCRWS 

DO REAL CARRIAGE RETURN 

878 0302 A9 9B 


LDA 

#CR 

AND RETURN EOL 

879 0304 8D 00 00 

E 

STA 

ATACHR 


880 0307 20 8F 02 

P 

JSR 

RETUR2 

TURN ON CURSOR THEN SWAP 

881 030A 84 00 

E 

STY 

DSTAT 

SAVE KEYBOARD STATUS 

882 030C 4C 00 OA 

P 

JMP 

SWAP 

AND RETURN THROUGH RETUR1 

883 


i 



884 030F 6C 00 00 

E 

JSRIND: JMP 

(ADRESS) 

JSR TO THIS CAUSES JSR INDIRECT 

885 


} 



886 0312 8D 00 00 

E 

EOUTCH: STA 

ATACHR 

SAVE ATASCII VALUE 

887 0315 20 00 OA 

P 

JSR 

SWAP 


888 0318 20 66 07 

P 

JSR 

ERANGE 


889 03 IB A9 00 


LDA 

#0 

CLEAR SUPER FUNCTION FLAG 

890 03 ID 8D 00 00 

E 

STA 

SUPERF 



LINE 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 


ADDR B 1 B2 B3 B4 


DISPLAY HANDLER — 10-30-78 — DISPLC 


PAGE 


1 1 


0320 

0323 

0326 

0328 

032B 

032E 

0331 

0334 

0337 

0339 
033C 
033D 

0340 

0342 

0343 

0344 

0346 

0347 
034A 
034C 
034F 
0351 
0354 
0357 


20 


C2 


F0 09 


DO EF 
OE 00 
E8 

AD 00 
FO 05 
SA 
18 

69 2D 
AA 

BD 53 OC 
85 00 
SD 54 OC 
85 01 
20 OF 03 
20 8F 02 
4C 00 OA 


07 

P 

DOSS: 

JSR 

OFFCRS 

09 

P 


JSR 

TSTCTL 

00 



BEQ 

E0UTC5 

E 

E0UTC6: 

ASL 

ESCFLG 

02 

P 


JSR 

OUTCHE 

OA 

P 

ERETN: 

JMP 

SWAP 

00 

E 

E0UTC5: 

LDA 

DSPFLG 

00 

E 


ORA 

ESCFLG 

00 



BNE 

E0UTC6 

E 


ASL 

ESCFLG 




INX 


00 

E 


LDA 

SUPERF 




BEQ 

E0UTC7 


P 

E 

P 

E 

P 

P 

P 


EDUTC7: 


TXA 

CLC 

ADC 

TAX 

LDA 

STA 

LDA 

STA 

JSR 

JSR 

JMP 


TURN OFF CURSOR 

TEST FOR CONTROL CHARACTERS <Z=1 IF CTL) 
CONTROL CODE. 

ESCFLG ONLY WORKS ONCE 

i AND RETURN THROUGH RETUR1 
; DO DSPFLG AND ESCFLG 


; IF NON-O DISPLAY RATHER THAN EXECUTE IT 

PROCESS CONTROL CHARACTERS 
SUPER FUNCTION? 

NO. 

YES — ADJUST X REG. 


#SUPERS-CNTRLS-3 


CNTRLS, X 

ADRESS 

CNTRLS+1 

ADRESS+ 1 

JSR IND 

RETUR2 

SWAP 


i GET DISPLACEMENT INTO ROUTINE 
» X ; GET HIGH BYTE 


DO COMPUTED JSR 
DO CURSOR 

ALL DONE SO RETURN THROUGH RETUR1 


END SCREEN EDITOR. 



ERR LINE ADDR B1 B2 B3 B4 


DISPLAY HANDLER 


10-30 


918 

919 

920 

921 


PAGE 


BEGIN KEYBOARD HANDLER 


922 03 5A 

A9 FF 


KGTOOO: LDA 

#$FF 

923 03 SC 

8D 00 00 

E 

STA 

CH 

924 03 SF 

A9 00 


KGETCH: LDA 

#0 

925 0361 

8D 00 00 

E 

STA 

SUPERF 

926 0364 

AS 00 

E 

LDA 

ICAX1Z 

927 0366 

4A 


LSR 

A 

928 0367 

BO 7D 


BCS 

KGT075 

929 0369 

A9 80 


LDA 

#BRKABT 

930 036B 

A6 00 

E 

LDX 

BRKKEY 

931 036D 

FO 73 


BEQ 

KGT070 

932 036F 

AD 00 00 

E 

LDA 

CH 

933 0372 

C9 FF 


CMP 

#$FF 

934 0374 

FO E9 


BEO 

KGETCH 

935 0376 

85 00 

E 

STA 

HOLDCH 

936 0378 

A2 FF 


LDX 

#$FF 

937 037A 

8E 00 00 

E 

STX 

CH 

938 037D 

AE 00 00 

E 

LDX 

NOCLIK 

939 0380 

DO 08 


BNE 

KGT002 

940 0382 

AE 00 00 

E 

LDX 

KEYDIS 

941 0385 

DO 03 


BNE 

KGT002 

942 0387 

20 21 OA 

P 

J SR 

CLICK 

943 038A 

A8 


KGT002: TAY 


944 038B 

CO CO 


CP Y 

#$C0 

945 038D 

BO CE 


BCS 

KGTOOO 

946 



} 


947 038F 

B 1 00 

E 

LDA 

( KEYDEF ) , Y 

948 0391 

8D 00 00 

E 

KGT007 : STA 

ATACHR 

949 0394 

AE 00 00 

E 

LDX 

KEYDIS 

950 0397 

FO 04 


BEQ 

KGT008 

951 



/ 


952 



; NOTE: KBD 

ENB/DIS MUST 


953 


954 

0399 

C9 86 


CMP 

#$86 

955 

039B 

DO BD 


BNE 

KGTOOO 

956 




I 


957 

03 9D 

AA 


KGT008: TAX 


958 

039E 

30 03 


BMI 

KGTOlO 

959 

03A0 

4C 68 04 

P 

JMP 

KGT800 

960 




i 


961 

03A3 

C9 80 


KGTOlO: CMP 

#$80 

962 

03A5 

FO B3 


BEQ 

KGTOOO 

963 




i 


964 

03A7 

C9 81 


CMP 

#$81 

965 

03A9 

DO OA 


BNE 

KGT020 

966 




) 


967 

03AB 

AD 00 00 

E 

LDA 

INVFLG 

968 

03AE 

49 80 


EOR 

#$80 

969 

03B0 

8D 00 00 

E 

STA 

INVFLG 

970 

03B3 

BO A5 


BCS 

KGTOOO 

971 




i 
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; CLEAR SUPER FUNCTION FLAG. 

J TEST LSB OF AUX 1 FOR SPECIAL EDITOR READ MO 


; TEST BREAK 

; IF BREAK, PUT BRKABT IN DSTAT AND CR IN ATA 


i SAVE CH FOR SHIFT LOCK PROC 
; "CLEAR" CH 

; INHIBIT CLICK? 

; YES. 

; DISABLED KEYBOARD? 

; YES 

; DO KEYBOARD AUDIO FEEDBACK (A IS OK) 
; DO ASCCON 

> TEST FOR CTL & SHIFT TOGETHER 
; CTRL-SHIFT COMBINATIONS IGNORED. 


; DONE 

; KEYBOARD DISABLED? 

; NO. 

DEFINED IN 1ST LEVEL CONVERSION TABLE. 

; YES — RECOGNIZE ONLY ENABLE FUNCTION 
; IGNORE ALL ELSE. 

; SET CC. 

i NOT SPECIAL CODE. 

; DO NULLS 


; CHECK ATARI KEY 


; (JMP) DONT RETURN A VALUE 


ERR LINE 

ADDR 

B 1 B2 B3 B4 


DISPLAY HANDLER — 10 

972 

03B5 

C9 82 


KGT020: 

CMP 

#$82 

973 

03B7 

DO OC 



BNE 

KGT030 

974 







975 

03B9 

AD 00 00 

E 


LDA 

SHFLOK 

976 

03BC 

FO OB 



BEG 

KGT040 

977 




i 



978 

03BE 

A9 00 



LDA 

#0 

979 

03C0 

8D 00 00 

E 


STA 

SHFLOK 

980 

03C3 

FO 95 



BEG 

KGTOOO 

981 




/ 



982 

03C5 

C9 83 


KGT030: 

CMP 

#$83 

983 

03C7 

DO 07 



BNE 

KGT050 

984 




i 



985 

03C9 

A9 40 


KGT040: 

LDA 

#$40 

986 

03CB 

8D 00 00 

E 


STA 

SHFLOK 

987 

03 CE 

DO 8A 



BNE 

KGTOOO 

988 




i 



989 

03D0 

C9 84 


KGT050: 

CMP 

#$84 

990 

03D2 

DO 08 



BNE 

KGT060 

991 




i 



992 

03D4 

A9 80 



LDA 

#$80 

993 

03D6 

8D 00 00 

E 


STA 

SHFLOK 

994 

03D9 

4C 5A 03 

P 


JMP 

KGTOOO 

995 




i 



996 

03DC 

C9 85 


KGT060: 

CMP 

#$85 

997 

03DE 

DO OB 



BNE 

KGT080 

998 




/ 



999 

03E0 

A9 88 



LDA 

#EOFERR 

1000 

03E2 

85 00 

E 

KGT070: 

STA 

DSTAT 

1001 

03E4 

85 00 

E 


STA 

BRKKEY 

1002 

03E6 

A9 9B 


KGT075: 

LDA 

#CR 

1003 

03E8 

4C 8E 04 

P 


JMP 

KGT820 

1004 




> 



1005 

03EB 

C9 86 


KGT080: 

CMP 

#$86 

1006 

03ED 

DO 12 



BNE 

KGT090 

1007 




i 



1008 

03EF 

AD 01 D3 



LDA 

PQRTB 

1009 

03F2 

49 04 



EQR 

#$04 

1010 

03F4 

8D 01 D3 



STA 

PORTB 

101 1 




/ 



1012 

03F7 

AD 00 00 

E 


LDA 

KEYDIS 

1013 

03FA 

49 FF 



EOR 

#$FF 

1014 

03FC 

8D 00 00 

E 


STA 

KEYDIS 

1015 

03FF 

BO 13 



BCS 

KGTl 12 

1016 




i 



1017 




• 



1018 

0401 

C9 88 


"KGT090: 

CMP 

#$88 

1019 

0403 

DO 03 

f 


BNE 

KGTUO 

1020 



( 

i 



1021 

0405 

4C 05 04 

V. 


JMP 

at 

1022 




' 

i 



1023 

0408 

C9 89 


KGTl 10: 

CMP 

#$89 

1024 

040A 

DO 10 



BNE 

KGTl 20 

1025 




i 
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i CAPS/LOWER 

; LOWER CASE? 
i YES — GO TO CAPS LOCK. 

; CLEAR SHFLOK 

; ( JMP ) . 

; SHIFT CAPS/LOWER 

i SHIFT BIT 
i (JMP). 

; CNTL CAPS/LOWER 

; CNTL BIT 
; (JMP). 

; DO EOF 


; RESTORE EREAK 
; PUT CR IN ATACHR 
; (UNCONDITIONAL) 

i KEYBOARD ENABLE/DISABLE? 
; NO. 


; TOGGLE LED 1 . 


; YES — TOGGLE THE VARIABLE. 


; (JMP) TO COMMON CODE. 


; GONZO FUNCTION? 
; NO 


i YES. 





; KEY CLICK ON-OFF? 
i NO. 


ERR LINE AD DR B1 B2 B3 B4 


DISPLAY HANDLER 


10-30 


1026 040C AD 00 00 

E 

LDA 

NOCLIK 

1027 040F 49 FF 


EOR 

#*FF 

1028 041 I 8D 00 00 

E 

8TA 

NOCLIK 

1029 0414 DO 03 


KGTU2 BNE 

KGT I 15 

1030 


1 


1031 0416 20 21 OA 

P 

JSR 

CLICK 

1032 


I 


1033 0419 4C 5A 03 

P 

KCT1I5 JMP 

KGTOOO 

1034 


f 


1033 04 1C C9 8E 


KGT120: CMP 

#*8E 

1036 04 IE BO 12 


BCS 

KGT 130 

1037 0420 C9 8A 


CMP 

#*8A 

1038 0422 90 F3 


BCC 

KGT1 15 

1039 0424 E9 8A 


SBC 

#$8A 

1040 0426 06 00 

E 

ASL 

HOLDCH 

1041 0428 10 02 


BPL 

KGT 1 25 

1042 


• 


1043 042A 09 04 


ORA 

#$4 

1044 


i 


1045 042C A8 


KGT125: TAY 


1046 042D B 1 00 

E 

LDA 

( FKDEF ) / Y 

1047 042F 4C 91 03 

P 

JMP 

KGT007 

1048 


# 


1049 0432 C9 92 


KGT130: CMP 

#$92 

1050 0434 BO OB 


BCS 

KGT 170 

1051 0436 C9 8E 


CMP 

#$8E 

1052 0438 90 DF 


BCC 

KGT1 15 

1053 043A E9 72 


SBC 

#$8E~$ 1C 

1054 043C EE 00 00 

E 

INC 

SUPERF 

1055 043F DO 4D 


BNE 

KGT820 

1056 


} 


1057 0441 C9 92 


KGT170: CMP 

#$92 

1058 0443 DO 23 


BNE 

KGT 180 

1059 


i 


1060 0445 AD 00 00 

E 

LDA 

CHBAS 

1061 0448 29 FC 


AND 

#$FC 

1062 044A C9 CC 


CMP 

#INTCHR 

1063 044C FO OA 


BEG 

KGT 175 

1064 


i 


1065 044E A2 CC 


LUX 

# INTO HR 

1066 0450 AD 01 D3 


LDA 

PORTB 

1067 0453 29 F7 


AND 

#$F7 

1068 0455 4C 5F 04 

P 

JMP 

KGT 177 

1069 


} 


1070 0458 A2 EO 


KGT175: LDX 

#DOMCHR 

1071 045A AD 01 D3 


LDA 

PORTB 

1072 045D 09 08 


ORA 

#$08 

1073 


# 


1074 045F 8D 01 D3 


KGT177: STA 

PORTB 

1075 0462 8E 00 00 

E 

STX 

CHBAS 

1076 0465 4C 5A 03 

P 

JMP 

KGTOOO 

1077 


/ 


1078 0468 

P 

KGT180: = 

* 

1079 0468 A5 00 

E 

KGT800: LDA 

HOLDCH 


n i 


rj/-j rj/-) o A 


r. TCDI AV UAKini CD 


i 


T MET 


Anno 


- i n-'in 


78 — DISPLC 

, YES — TOGGLE THE VARIABLE 


i PRODUCE MISSING CLICK. 

; *** SKIP BRANCH POINT *** 

i CODE < $8E? 
i NO. 

j CODE >* 8A? 
i NO — IGNORE, 
i NORMALIZE $8A-8D TO 0-3. 
i TEST FOR SHIFT KEY. 

; NO SHIFT KEY. 

iSHIFT-FX — INDEX « 4-7. 

i INDEX TO FUNCTION KEY DEFS. 

; TRY AGAIN. 

; CODE < $92? 

; NO. 

; CODE >= $8E? 

; NO — IGNORE. 

; CONVERT $8E~91 TO $1C-1F. 
i SET SUPER FUNCTIONF FLAG, 
i (JMP). 

; SWITCH CHARACTER SETS? 

; NO. 

; INTERNATIONAL SET SELECTED? 


■, YES -- SWITCH TO DOMESTIC. 

; NO — SELECT INTERNATIONAL. 
; LIGHT LED 2. 


; SELECT DOMESTIC CHARSET. 
; UNLIGHT LED 2. 


i PROCESS SHIFT LOCKS 


ERR LINE 

ADDR 

B1 

B2 

B3 B4 

1080 

046A 

C9 

40 


1081 

046C 

BO 

15 


1082 

046E 

AD 

00 

00 

1083 

0471 

C9 

61 


1084 

0473 

90 

OE 


1085 

0475 

C9 

7B 


1086 

0477 

BO 

OA 


1087 

0479 

AD 

00 

00 

1088 

047C 

FO 

05 


1089 

047E 

05 

00 


1090 

0480 

4C 

8A 

03 

1091 

0483 

20 

DA 

09 

1092 

0486 

FO 

09 


1093 

0488 

AD 

00 

00 

1094 

048B 

4D 

00 

00 

1095 

048E 

8D 

00 

00 

1096 

1097 

1098 

1099 

0491 

4C 

A2 

02 


DISPLAY HANDLER — 10 




CMP 

#$40 



BCS 

KGT810 

E 


LDA 

ATACHR 



CMP 

#$61 



BCC 

KGT810 



CMP 

#$7B 



BCS 

KGT810 

E 


LDA 

SHFLOK 



BEG 

KGT810 

E 


ORA 

HOLDCH 

P 


JMP 

KGT002 

P 

KGT810: 

JSR 

TSTCTL 



BEG 

KGT830 

E 


LDA 

ATACHR 

E 


EOR 

INVFLG 

E 

KGT820: 

STA 

ATACHR 

P 

KGT830: 

JMP 

RETUR1 


I 

; END KEYBOARD HANDLER 

/ 


78 
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PAGE 


15 


; REGULAR SHIFT AND CONTROL TAKE PRECEDENCE 
; OVER LOCK 
i TEST FOR ALPHA 
; LOWER CASE A 
; NOT ALPHA IF LT 
i LOWER CASE Z+l 
; NOT ALPHA IF GE 
i DO SHIFT/CONTROL LOCK 
/IF NO LOCK, DONT RE-DO IT 

, DO RETRY 

i DONT INVERT MSB OF CONTROL CHARACTERS 


ALL DONE 


ERR LINE ADDR B1 B2 83 B4 

1 100 
1 101 
1 102 

1103 

1104 
1 103 
1106 

1107 0494 A9 80 

1108 0496 8D 00 00 

1109 0499 60 

1110 
1111 
1112 


1113 

049A 

C6 00 

1 114 

049C 

10 06 

1 115 

049E 

AE 00 00 

1 1 16 

04A1 

CA 

1117 

04A2 

86 00 

1 1 18 

04A4 

4C AA 09 

1 119 



1120 



1 121 



1122 

04A7 

E6 00 

1 123 

04A9 

A5 00 

1 124 

04AB 

CD 00 00 

1125 

04AE 

90 F4 

1126 

04B0 

A2 00 

1 127 

04B2 

FO EE 


1 128 

1129 

1 130 


1 131 

04B4 

C6 

00 

1132 

04B6 

A5 

00 

1 133 

04B8 

30 

04 

1 134 

04BA 

C5 

00 

1 135 

04BC 

BO 

04 

1 136 

04BE 

A5 

00 

1 137 

04 CO 

85 

00 

1138 

04C2 

4C 

2C 09 

1 139 




1140 




1141 




1142 

04C5 

E6 

00 

1143 

04C7 

A 5 

00 

1144 

04C9 

C5 < 

00 


1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 


04CB 

04CD 

04CF 

04D1 


90 
F 0 
A5 
4C 


F5 

F3 

00 

CO 


04 


04D4 

04D7 


20 

A4 


44 

00 


OA 
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E 

E 

E 


E 

P 


> ESCAPE 

I 

ESCAPE: LDA #*80 

STA ESCFLG 

RTS 


i CURSOR UP 

i 

E CRSRUP : DEC RQWCRS 

BPL COMRET 

E LDX BOTSCR 

DEX 

E UPDNCM: STX ROWCRS 

P COMRET: JMP STRBEG 

i 

i CURSOR DOWN 

# 

E CRSRDN: INC ROWCRS 

E LDA ROWCRS 

E CMP BOTSCR 

BCC COMRET 

LDX #0 

BEG UPDNCM 

/ 

; CURSOR LEFT 

i 

E CRSRLF : DEC COL.CRS 

E LDA COLORS 

BMI CRSRL1 

E CMP LMARGN 

BCS C0MRE1 

E CRSRL1 : LDA R MAR GN 

E LFRTCM: STA COLCRS 

P C0MRE1: JMP DOLCOL 

# 

; CURSOR RIGHT 


CRSRRT : INC COLCRS 

LDA COLCRS 

CMP RMARGN 

BCC C0MRE1 

BEG C OMR El 

CRSRR1: LDA LMARGN 

JMP LFRTCM 

I 

; CLEAR SCREEN 


P CLRSCR: JSR PUTMSC 

E LDY ADRESS 


i SET ESCAPE FLAG 


; WRAPAROUND 


i CONVERT ROW AND COL TO LOGCOL AND RETURN 


; (UNCONDITIONAL) 


; (IF LMARGN-Gi THIS ELIMINATES PROBLEM CASE) 


CONVERT ROW AND COL TO LOGCOL AND RETURN 


; (CAUSE BLE) 

; UNCONDITIONAL TO COMMON STORE 


ERR LINE ADOR B1 B2 B3 B4 


DISPLAY HANDLE! 


1 1 54 

1155 

1156 

1157 

1158 

1159 

1160 
1 161 
1 162 

1163 

1164 

1165 
1 166 
1 167 
1 168 
1 169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 
1 181 
1182 

1183 

1184 

1185 

1 186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 
1207 


04D9 
04DB 
04DD 
04 DF 
04E0 
04E2 
04E4 
04E6 
04E8 
04EA 
04EC 
04EF 
04F0 
04F2 


04F4 

04F7 

04F9 

04FB 

04FD 

04FF 

0501 

0503 


0504 
0506 
0508 
050A 
050C 
050E 
0510 
0513 
0516 
0518 
051 A 
051C 
051E 
0520 
0523 
0525 
0528 
052B 


052E 

0531 

0533 

0535 

0537 


A9 00 
85 00 
91 00 
C8 

DO FB 
E6 01 
A6 01 
E4 00 
90 F3 
A9 FF 
99 00 00 
C8 

CO 04 
90 F8 


20 35 OA 
85 00 
85 01 
A9 00 
85 00 
85 01 
85 00 
60 


A5 00 
C5 00 
FO 21 
A5 00 
C5 00 
DO 03 
20 Cl 09 
20 B4 04 
A5 00 
C5 00 
DO 07 
A5 00 
FO 03 
20 9A 04 
A9 20 
8D 00 00 
20 4E 02 
4C 2C 09 


20 C5 04 
A5 00 
C5 00 
DO 08 
20 OF 07 


E 


E 

E 

E 


P 

E 

E 

E 

E 

E 


E 

E 

E 

E 

P 

P 

E 

E 

E 

P 

E 

P 

P 


P 

E 

E 


LDA 

STA 

CLRSC2 STA 
I NY 
BNE 
INC 
LDX 
CPX 
BCC 
LDA 

CLRSC3: STA 

I NY 
CPY 
BCC 

2 

i CURSOR HOME 


HOME: 


JSR 

STA 

STA 

LDA 

STA 

STA 

STA 

RTS 


BACKSPACE 


BS: 


BSA: 


BS3: 


BS2: 


BS1 


LDA 

CMP 

BEQ 

LDA 

CMP 

BNE 

JSR 

JSR 

LDA 

CMP 

BNE 

LDA 

BEQ 

JSR 

LDA 

STA 

JSR 

JMP 


TAB CURSOR 


TAB: 


JSR 

LDA 

CMP 

BNE 

JSR 


10-30-78 
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i (AC IS ZERO) 


CLRSC2 
ADRESS-*- 1 
ADRESS-*- 1 
RAMTOP 


CLRSC2 

#»FF 

LOGMAP, Y 

#4 

CLRSC3 

j CLEAN UP LOGICAL LINE BIT MAP 
i (Y IS ZERO AFTER CLRSC2 LOOP) 

COLCR 

LOGCOL 

BUFSTR+1 

#0 

ROWCRS 
COLCRS+ 1 
BUFSTR 

i PLACE COLORS AT LEFT EDGE 


LOGCOL 

LMARGN 

BS1 

; BACKSPACE 

COLORS 

LMARGN 

; LEFT EDGE? 

BS3 

DELTIM 

CRSRLF 

COLORS 

RMARGN 

BS2 

ROWCRS 

BS2 

CRSRUP 

i NO 

; YES* SEE IF LINE SHOULD BE DELETED 

#$20 

ATACHR 

OUTPLT 

; MAKE BACKSPACE DESTRUCTIVE 

DOLCOL 

; AND RETURN 

CRSRRT 

COLORS 

LMARGN 

i BEGIN SEARCH 
; TEST FOR NEW LINE 

TAB 1 
DOOR 

i NO 

i DO CARRIAGE RETURN 


ERR LINE ADDR B1 B2 B3 

B4 

DISPLAY HANDLER — 1C 

1208 053A 20 02 08 

P 

JSR 

LOGGET 

1209 053D BO 07 


BCS 

TABS 

1210 053F A5 00 

E 

TAB 1 : LDA 

LOGCOL 

1211 0541 20 07 08 

P 

JSR 

B ITGET 

1212 0544 90 E8 


BCC 

TAB 

1213 0546 4C 2C 09 

P 

TAB2: JMP 

DOLCOL 

1214 


i 


1215 


; SET TAB 


1216 




1217 0549 A5 00 

E 

SETTAB: LDA 

LOGCOL 

1218 054B 4C E8 07 

P 

JMP 

BITSET 

1219 


i 


1220 


; CLEAR TAB 


1221 


/ 


1222 054E A5 00 

E 

CLRTAB : LDA 

LOGCOL 

1223 0550 4C F4 07 

P 

JMP 

BITCLR 

1224 


i 


1225 


,• INSERT CHARACTER 

1226 


$ 


1227 0553 20 EA 09 

P 

INSCHR : JSR 

PHACRS 

1228 0556 20 13 02 

P 

JSR 

GETPLT 

1229 0559 85 00 

E 

STA 

INSDAT 

1230 055B A9 00 


LDA 

#0 

1231 055D 8D 00 00 

E 

STA 

SCRFLG 

1232 0560 20 6D 02 

P 

INSCH4: JSR 

0UTCH2 

1233 0563 A5 00 

E 

LDA 

LOGCOL 

1234 0565 48 


PHA 


1235 0566 20 BC 06 

P 

JSR 

INCRSA 

1236 0569 68 


PLA 


1237 056A C5 00 

E 

CMP 

LOGCOL 

1238 056C BO OC 


BCS 

INSCH3 

1239 056E A5 00 

E 

INSCH1 : LDA 

INSDAT 

1240 0570 48 


PHA 


1241 0571 20 13 02 

P 

JSR 

GETPLT 

1242 0574 85 00 

E 

STA 

INSDAT 

1243 0576 68 


PLA 


1244 0577 4C 60 05 

P 

JMP 

INSCH4 

1245 057A 20 F 5 09 

P 

INSCH3: JSR 

PLACRS 

1246 057D CE 00 00 

E 

JNSCH6: DEC 

SCRFLG 

1247 0580 30 04 


BMI 

INSCH5 

1248 0582 C6 00 

E 

DEC 

ROWCRS 

1249 0584 DO F7 


BNE 

INSCH6 

1250 0586 4C 2C 09 

P 

INSCH5: JMP 

DOLCOL 

1251 


i 


1252 


i DELETE CHARACTER 

1253 


/ 


1254 0589 20 EA 09 

P 

DELCHR : JSR 

PHACRS 

1255 058C 20 56 06 

P 

DELCH1 : JSR 

CONVRT 

1256 058F A5 00 

E 

* LDA 

ADRESS 

1257 0591 85 00 

E 

STA 

SAVADR 

1258 0593 A5 01 

E 

LDA 

ADRESS+ 

1259 0595 85 01 

E 

STA 

SAVADR+ 

1260 0597 A5 00 

E 

LDA 

LOGCOL 

1261 0599 48 


PHA 



78 
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i CHECK. IF END OF LOGICAL LINE 
; YES. 

i CHECK FOR TAB STOP. 
i NO/ SO KEEP LOOKING 

; CONVERT ROW AND COL TO LOGCOL AND RETURN 


;SET BIT IN MAP AND RETURN 


; CLEAR 


II 


; GET CHARACTER UNDER CURSOR 


STORE DATA 

SAVE LOGCOL: IF AFTER INCRSA LOGCOL IS 

< THAN IT IS NOW/ END LOOP 
SPECIAL INCRSR ENTRY POINT 


; QUIT 

; KEEP GOING 


IF SCROLL OCCURRED 
MOVE CURSOR UP 

(UNCOND) CONTINUE UNTIL SCRFLG IS MINUS 
CONVERT ROW AND COL TO LOGCOL AND RETURN 


; GET DATA TO THE RIGHT OF THE CURSOR 
; SAVE ADRESS TO KNOW WHERE TO PUT DATA 


LINE 

ADDR 

B 1 

B2 

B3 B4 


DISPLAY HANDLER — 10-30-78 — DISPLC PAGE 
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1262 

059A 

20 

B4 

06 

P 


JSR 

INCRSB 

PUT CURSOR OVER NEXT CHARACTER 


1263 

059D 

68 





PLA 




1264 

059E 

C5 

00 


E 


CMP 

LOGCOL 

TEST NEW LOGCOL AGAINST OLD LOGCOL 


1265 

OSAO 

BO 

10 




BCS 

DELCH2 

IF OLD. GE. NEW THEN QUIT 


1 266 

05A2 

A5 

00 


E 


LDA 

ROWCRS 

IS ROW OFF SCREEN? 


1267 

05A4 

CD 

00 

00 

E 


CMP 

BOTSCR 



1268 

05A7 

BO 

09 




BCS 

DELCH2 

YES, SO QUIT 


1269 

05A9 

20 

13 

02 

P 


JSR 

GETPLT 

GET DATA UNDER CURSOR 


1270 

05AC 

AO 

00 




LDY 

#0 



1271 

05AE 

91 

00 


E 


STA 

(SAVADR ), Y 

PUT IT IN PREVIOUS POSITION 


1272 

05B0 

FO 

DA 




BEQ 

DELCH1 

AND LOOP (UNCONDITIONAL) 


1273 

05132 

AO 

00 



DELCH2: 

LDY 

#0 



1274 

05B4 

98 





TYA 




1275 

05B5 

91 

00 


E 


STA 

(SAVADR), Y ; CLEAR THE LAST POSITION 


1276 

05B7 

20 

B6 

09 

P 


JSR 

DELTIA 

TRY TO DELETE A LINE 


1277 

05BA 

20 

F5 

09 

P 


JSR 

PLACRS 



1278 

05BD 

4C 

2C 

09 

P 


JMP 

DOLCOL ; AND RETURN 


1279 






# 





1280 






; INSERT LINE 




1281 






# 





1282 

05C0 

38 




INSLIN: 

SEC 


NORMAL INSLIN PUTS "1" INTO BIT MAP 


1283 

05C 1 

20 

6C 

08 

P 

INSLIA: 

JSR 

EXTEND 

ENTRY POINT FOR C=0 


1284 

05C4 

A5 

00 


E 


LDA 

LMARGN 

DO CARRIAGE RETURN (NO LF) 


1235 

05C6 

85 

00 


E 


STA 

COLCRS 



1286 

05C8 

20 

56 

06 

P 


JSR 

CQNVRT 

GET ADDRESS 


1287 

05CB 

20 

38 

08 

P 


JSR 

MOVLIN 



1288 

05CE 

20 

8C 

08 

P 


JSR 

CLRLIN ; CLEAR CURRENT LINE 


1289 

05D1 

4C 

2C 

09 

P 


JMP 

DOLCOL ; CONVERT ROW AND COL TO LOGCOL AND RETURN 

1290 






# 





1291 






; DELETE LINE 




1292 






1 





1293 

05D4 

20 

2C 

09 

P 

DELL IN: 

JSR 

DOLCOL 

GET BEGINNING OF LOG LINE ( H0LD1 ) 


1294 

05D7 

A4 

00 


E 

DELL I A: 

LDY 

H0LD1 

SQUEEZE BIT MAP 


1295 

05D9 

84 

00 


E 


STY 

ROWCRS 

PUT CURSOR THERE 


1296 

05DB 

A4 

00 


E 

DELLIB: 

LDY 

ROWCRS 



1297 

05DD 

98 




DELLI1: 

TYA 




1298 

05DE 

38 





SEC 




1299 

05DF 

20 

05 

08 

P 


JSR 

L02GET 

GET NEXT BIT 


1300 

05E2 

08 





PHP 




1301 

05E3 

98 





TYA 




1302 

05E4 

18 





CLC 




1303 

05E5 

69 

78 




ADC 

#120 



1304 

05E7 

28 





PLP 




1305 

05E8 

20 

E6 

07 

P 


JSR 

BITPUT 

WRITE IT OVER PRESENT BIT 


1306 

05EB 

C8 





INY 




1307 

05EC 

CO 

18 




CPY 

#24 



1308 

05EE 

DO 

ED 




BNE 

DELL 11 ; LOOP 


1309 

05F0 

AD 

02 

00 

E 


LDA 

LOGMAP+2 

SET LSB 


1310 

05F3 

09 

01 




□RA 

#1 

□ft 


1311 

05F5 

8D 

02 

00 

E 


STA 

L0GMAP+2^Q^ 

W) 


1312 

05F8 

A5 

00 


E 

DELLI2: 

LDA 

LMARQH--^ i 

“Delete line of data using part of scroll 

1313 

05FA 

85 

00 


E 


STA 

COLCRS i 

cr,no lf 


1314 

05FC 

20 

56 

06 

P 


JSR 

CONVRT 

/ 


1315 

05FF 

20 

D4 

08 

P 


JSR 

SCR0L1 




ERR LINE 

ADDR 

B 1 

B2 

B3 B4 


DISPLAY HANDLER — 10 

1316 

0602 

20 

02 

08 

P 


JSR 

LOGGET 

1317 






; IS IT 

A NEW 

LOG LINE? 

1318 

0605 

90 

D4 




BCC 

DELL IB 

1319 

0607 

4C 

2C 

09 

P 


JHP 

OOLC-QL. 

1320 






# 

IAS. 


1321 






; BELL 



1322 






i 



1323 

060A 

AO 

20 



BELL: 

LDY 

#*2G 

1324 

060C 

20 

21 

OA 

P 

BELLI: 

JSR 

CLICK 

1325 

060F 

88 





DEY 


1326 

0610 

10 

FA 




BPL 

BELLI 

1327 

0612 

60 





RTS 


1328 






i 



1329 






; SUPER 

FUNCTIONS 

1330 






t 



1331 

0613 

4C 

F4 

04 

P 

CHOME : 

JMP 

HOME 

1332 






i 



1333 

0616 

20 

F4 

04 

P 

CHBOT : 

JSR 

HOME 

1334 

0619 

4C 

9A 

04 

P 


JMP 

CRSRUP 

1335 






i 



1336 

06 1C 

4C 

CF 

04 

P 

CHLEFT: 

JMP 

CRSRR1 

1337 






i 



1338 

06 IF 

4C 

BE 

04 

P 

CHRIGT: 

JMP 

CRSRL1 


30-78 
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i TEST NEXT LINE FOR CONTINUATION 

; NO SO DELETE ANOTHER 
; YES SO DOLCOL AND RETURN 


; CURSOR 

HOME. 


; CURSOR 

TO 

BOTTOM 

OF SCREEN. 

; CURSOR 

TO 

LEFT MARGIN. 

; CURSOR 

TO 

RIGHT 

MARGIN. 


ERR LINE 

ADDR 

B 1 

B2 

B3 B4 


DISPLAY HANDLER — 10-30- 

78 — DISPLC 


PAGE 21 

1339 







. PAGE 





1340 












1341 












1342 






ROUTINES 





1343 












1344 












1345 






DOUBLE BYTE 

DECREMENT OF 

INDIRECT POINTER 



1346 






INCLUDING DB SUBTRACT AND 

DB DOUBLE DECREMENT 



1347 












1348 

0622 

A9 

02 


DBDDEC : 

LDA 

#2 




1349 

0624 

DO 

OA 




BNE 

DBSUB 

; (UNCONDITIONAL) 



1350 












1351 






STORE 

DATA 

INDIRECT AND DECREMENT POINTER 



1352 






(PLACED HERE TO SAVE JMP 

DBDEC AFTER STORE) 



1353 

0626 

A4 

00 


E STORE: 

LDY 

DSTAT 

i RETURN ON ERROR 



1354 

0628 

30 

2B 




BMI 

STROK 




1355 

062A 

AO 

00 




LDY 

#0 




1356 

062C 

91 

00 


E STORE 1: 

STA 

(ADRESS) , Y 




1357 







JMP 

DBDEC 

DECREMENT AND RETURN 



1358 












1359 

062E 

A9 

01 


DBDEC : 

LDA 

#1 




1360 

0630 

8D 

00 

00 

E DBSUB : 

STA 

SUBTMP 




1361 

0633 

A5 

00 


E 


LDA 

DSTAT 

i RETURN ON ERROR 



1362 

0635 

30 

IE 




BMI 

STROK 




1363 

0637 

A5 

00 


E 


LDA 

ADRESS 




1364 

0639 

38 





SEC 





1365 

063A 

ED 

00 

00 

E 


SBC 

SUBTMP 




1366 

063D 

85 

00 


E 


STA 

ADRESS 




1367 

063F 

BO 

02 




BCS 

DBSUB 1 




1368 

0641 

€6 

01 


E 


DEC 

ADRESS* 1 




1369 

0643 

A5 

01 


E DBSUB 1: 

LDA 

APPMHI+1 

; MAKE SURE NOTHING EVER 

OVERWRITES APPMHI 

1370 

0645 

C5 

01 


E 


CMP 

ADRESS* 1 




1371 

0647 

90 

OC 




BCC 

STROK 

; OK 



1372 

0649 

DO 

06 




BNE 

STRERR 

i ERROR 



1373 

064B 

A5 

00 


E 


LDA 

APPMHI 




1374 

064D 

C 5 

00 


E 


CMP 

ADRESS 




1375 

064F 

90 

04 




BCC 

STROK 




1376 

0651 

A9 

93 


STRERR: 

LDA 

#SCRMEM 

; SHOW MEM TOO SMALL FOR 

SCREEN 

ERROR 

1377 

0653 

85 

00 


E 


STA 

DSTAT 




1378 

0655 

60 



STROK: 

RTS 





1379 












1380 












1381 












1382 






CONVERT ROW/COLUMN CURSOR 

INTO REAL ADDRESS (FROM 

SAVMSC 

ON UP) 

1383 












1384 

0656 

A2 

01 


CONVRT: 

LDX 

#01 




1385 

0658 

86 

00 


E 


STX 

MLTTMP 

; VERTICAL CALCULATIONS 



1386 

065A 

CA 





DEX 


; VERTICAL CALCULATIONS. 



1387 

065B 

86 

01 


E 


STX 

ADRESS* 1 

; CLEAR HI BYTE. 



1388 

065D 

A5 

00 


E 


LDA 

RQWCRS 

; ADRESS : - R0WCRS*5. 



1389 

06 5F 

OA 





ASL 

A 

; MULTIPLY BY 4 



1390 

0660 

26 

01 


E 


ROL 

ADRESS* 1 




1391 

0662 

OA 





ASL 

A 




1392 

0663 

26 

01 


E 


ROL 

ADRESS* 1 

; CLEAR CARRY 




DISPLAY HANDLER 


10-30-78 


DISPLC 


PAGE 


22 


ERR LINE ADDR B1 B2 B3 B4 


1393 0665 65 00 

E 

ADC 

ROWCRS i AD TO MAKE *5 

1394 0667 85 00 

E 

STA 

ADRESS 


1395 0669 90 02 


BCC 

CONVRO 


1396 066B E6 01 

E 

INC 

ADRESS+1 


1397 066D A4 00 

E 

CONVRO: LDY 

D INDEX 

GET MODE 

1398 066F BE F7 OB 

P 

LDX 

DHL I NE/ Y 

GET NUMBER OF SHIFTS 

1399 0672 06 00 

E 

C0NVR1: ASL 

ADRESS 

ADRESS : = ADRESS *X 

1400 0674 26 01 

E 

ROL 

ADRESS+1 

DO THE DIVIDE. 

1401 0676 CA 


DEX 



1402 0677 DO F9 


BNE 

CONOR 1 


1403 0679 A5 01 

E 

LDA 

CQLCRS+1 

HORIZONTAL CALCULATIONS 

1404 067B 4A 


LSR 

A 

SAVE LSB FOR LATER 

1405 067C A5 00 

E 

LDA 

COLCRS 

GET LOW BYTE. 

1406 067E BE 2A OC 

P 

LDX 

DI02TB, Y 

GET SHIFT AMOUNT. 

1407 0681 FO 06 


BEG 

C0N0R3 

CARRY CLEAR IF NO SHIFT 

1408 0683 6A 


CONOR 2: ROR 

A 

ROLL IN THE CARRY. 

1409 0684 06 00 

E 

ASL 

MLTTMP 

SHIFT INDEX. 

1410 0686 CA 


DEX 



1411 0687 DO FA 


BNE 

C0N0R2 


1412 0689 65 00 

E 

C0NVR3: ADC 

ADRESS 

CARRY IS ALWAYS CLEAR. 

1413 068B 90 02 


BCC 

C0N0R4 


1414 068D E6 01 

E 

INC 

ADRESS+1 


1415 068F 18 


C0NVR4: CLC 



1416 0690 65 00 

E 

ADC 

SAOMSC 


1417 0692 85 00 

E 

STA 

ADRESS 


1418 0694 85 00 

E 

STA 

OLD A DR 


1419 0696 A5 01 

E 

LDA 

ADRESS+1 


1420 0698 65 01 

E 

ADC 

SAVMSC+1 


1421 069A 85 01 

E 

STA 

ADRESS+1 


1422 069C 85 01 

E 

STA 

GLDADR+1 


1423 069E BE 2A OC 

P 

LDX 

DI02TB, Y 


1424 06A1 BD 4A OC 

P 

LDA 

HMASK/ X 


1425 06A4 25 00 

E 

AND 

COLCRS 


1426 06A6 65 00 

E 

ADC 

MLTTMP 


1427 06A8 A8 


TAY 


MAKE A NEW INDEX. 

1428 06A9 B9 3A OC 

P 

LDA 

DMASKT- 1 / Y 

GET THE FINAL MASK. 

1429 06AC 8D 00 00 

E 

STA 

DMASK 


1430 06AF 85 00 

E 

STA 

SHFAMT 


1431 06B 1 AO 00 


LDY 

#00 

; SET Y TO ZERO. 

1432 06B3 60 


INCRET: RTS 




1433 i 

1 434 

1435 ; INCREMENT CURSOR AND DETECT BOTH END OF LINE AND END OF SCREEN 

1 436 


1437 

06B4 

A9 

00 


INCRSB: 

LDA 

#0 

; NON-EXTEND ENTRY POINT 

1438 

06B6 

FO 

02 



BEG 

INCRSC 


1439 

06B8 

A9 

9B 


INCRSR : 

LDA 

#*9B 

; SPECIAL CASE ELIMINATQ 

1440 

06BA 

85 

00 

E 

INCRSC : 

STA 

INSDAT 


1441 

06BC 

E6 

00 

E 

INCRSA: 

INC 

LOGCOL 

; ( INSCHR ENTRY POINT) 

1442 

06BE 

E6 

00 

E 


INC 

COLCRS 


1443 

06C0 

DO 

02 



BNE 

INCRS2 

i DO HIGH BYTE 

1444 

06C2 

E6 

01 

E 


INC 

COLCRS+1 


1445 

06C4 

A5 

00 

E 

INCRS2: 

LDA 

COLCRS 

; TEST END OF LINE 

1446 

06C6 

A6 

00 

E 


LDX 

DINDEX 



ERR LINE 

ADDR 

B 1 

B2 

B3 B4 


DISPLAY HANDLER 

! — 10-30- 

78 — DISPLC PAGE 23 

1447 

06C8 

DD 

08 

OC 

P 


CMP 

COLUMN, X 

/ TEST TABLED VALUE FOR ALL SCREEN MODES 

1448 

06CB 

F0 

OA 




BEQ 

INC2A 

/ DO CR IF EQUAL 

1449 

06CD 

EO 

00 




CPX 

#0 

i MODE 0? 

1450 

06CF 

DO 

E2 




BNE 

INCRET 

/ IF NOT, JUST RETURN 

1451 

06D1 

C5 

00 


E 


CMP 

RMARGN 

; TEST AGAINST RMARGN 

1452 

06D3 

FO 

DE 




BEQ 

INCRET 

; EQUAL IS OK 

1453 

06D5 

90 

DC 




BC£ 

JLNCRET 

/ LESS THAN IS.XL.iL_ 

1454 

06D7 

EO 

08 



INC2A: / 

'CPX 

#8 

TcHECiT MODE — 

1455 

06D9 

DO 

04 



l 

JBNE 

DOCR 1 

. i NOT 320X1 SO- DO IT^ 

1456 

06DB 

A5 

01 


E 


LDA 

COLCRS+1 

/ TEST MSD 

1457 

06DD 

FO 

D4 




BEQ 

INCRET 

/ ONLY AT 64 SO DON'T DO IT -> 

1458 

06DF 

A5 

00 


E 

D0CR1: , 

<Cda 

DINDEX 

/DON'T MESS WITH LQGMAP IF NO MODE ZERO / 

1459 

06E1 

DO 

2C 



( 

J3NE 

DOCR 

- .. J 

1460 

06E3 

A5 

00 


E 


LDA 

LOGCOL 

/TEST LINE OVERRUN 

1461 

06E5 

C9 

51 




CMP 

#81 


1462 

06E7 

90 

OA 




BCC 

DOCR IB 

/ IF LESS THAN 81 IT IS DEFINITELY NOT LINE 

1463 

06E9 

A5 

00 


E 


LDA 

INSDAT 


1464 

06EB 

FO 

22 




BEQ 

DOCR 

/ONLY DO LOG LINE OVERFLOW IF INSDAT OO 

1465 

06ED 

20 

OB 

07 

P 


JSR 

DOCRWS 

/LOG LINE OVERFLOW IS SPECIAL CASE 

1466 

06F0 

4C 

55 

07 

P 


JMP 

INCRS1 

; RETURN 

1467 

06F3 

20 

OF 

07 

P 

D0CR1B: 

JSR 

DOCR 

/GET IT OVER WITH 

1468 

06F6 

A5 

00 


E 


LDA 

RGWCRS 


1469 

06F8 

18 





CLC 


/ TEST LOGICAL LINE BIT MAP 

1470 

06F9 

69 

78 




ADC 

#120 


1471 

06FB 

20 

07 

08 

P 


JSR 

BITGET 


1472 

06FE 

90 

08 




BCC 

DOCR 1 A 

/DON'T EXTEND IF OVERRUN IS INTO MIDDLE OF 

1473 

0700 

A5 

00 


E 


LDA 

INSDAT 

/DON'T EXTEND IF INSDAT IS ZERO 

1474 

0702 

FO 

04 




BEQ 

DOCR 1 A 

; ( INSCHR SPECIAL CASE) 

1475 

0704 

18 





CLC 


/ INSERT "0" INTO BIT MAP 

1476 

0705 

20 

Cl 

05 

P 


JSR 

INSLIA 


1477 

0708 

4C 

2C 

09 

P 

D0CR1A: 

JMP 

DOL.COL 

; CONVERT ROW AND COL TO LOGCOL AND RETURN 

1478 

070B 

A9 

9B 



DDCRWS: 

LDA 

#*9B 

/DOCR WITH SCROLLING (NORMAL MODE) 

1479 

070D 

85 

00 


E 


STA 

INSDAT 


1480 

070F 

20 

35 

OA 

P 

DOCR : 

JSR 

CQLCR 

; PLACE COLCRS AT LEFT EDGE 

1481 

0712 

A9 

00 




LDA 

#0 


1482 

0714 

85 

01 


E 


STA 

COLCRS+1 


1483 

0716 

E6 

00 


E 


INC 

RGWCRS 


1484 

0718 

A6 

00 


E 

D0CR2: 

LDX 

DINDEX 


1485 

07 1 A 

AO 

18 




LDY 

#24 

/ SET UP SCROLL LOOP COUNTER 

1436 

071C 

24 

00 


E 


BIT 

SWFFLG 


1487 

07 IE 

10 

05 




BPL 

D0CR2A 

/ BRANCH IF NORMAL 

1488 

0720 

AO 

04 




LDY 

#4 


1489 

0722 

98 





TYA 



1490 

0723 

DO 

03 




BNE 

DQCR2B 

/ (UNCONDITIONAL) 

1491 

0725 

BD 

19 

OC 

P 

D0CR2A: 

LDA 

NOROWS, X 

; GET NO OF ROWS 

1492 

0728 

C5 

00 


E 

D0CR2B: 

CMP 

ROWCRS 


1493 

072A 

DO 

29 




BNE 

INCRS1 


1494 

072C 

8C 

00 

00 

E 


STY 

H0LD3 


1495 

072F 

8A 





TXA 


/DON'T SCROLL IF MODE <> 0 

1496 

0730 

DO 

23 




BNE 

INCRS1 


1497 

0732 

A5 

00 


E 


LDA 

INSDAT 

/ OR IF INSDAT » 0 

1498 

0734 

FO 

IF 




BEQ 

INCRS1 


1499 






f 

LDA 

INSDAT 

IF INSDAT O *9B THEN ROLL IN A 0 

1500 

0736 

C9 

9B 




CMP 

#*9B 

/TO EXTEND BOTTOM LOGICAL LINE 


ERR LINE 

AD DR 

bi 

B2 

B3 B4 


DISPLAY HANDLER — 10 

1501 






i 

SEC 


1502 

0738 

FO 

01 




BEQ 

D0CR4B 

1503 

073A 

18 





CLC 


1504 

073B 

20 

A 1 

08 

P 

D0CR4B: 

JSR 

SCROLL 

1505 

073E 

EE 

00 

00 

E 


INC 

SCRFLG 

1 506 

0741 

C6 

00 


E 


DEC 

BUFSTR 

1507 

0743 

10 

02 




BPL 

D0CR4D 

1508 

0745 

E6 

00 


E 


INC 

BUFSTR 

1509 

0747 

CE 

00 

00 

E 

D0CR4D: 

DEC 

H0LD3 

1510 

074A 

AD 

00 

00 

E 


LDA 

LOGMAP 

1511 

074D 

38 





SEC 


1512 

074E 

10 

EB 




BPL 

D0CR4B 

1513 

0750 

AD 

00 

00 

E 


LDA 

H0LD3 

1514 

0753 

85 

00 


E 


STA 

ROWCRS 

1515 

0755 

4C 

2C 

09 

P 

INCRS1 : 

JMP 

DOLCOL 


DISPLC 


PAGE 


24 


i (CARRY WILL BE SET), 
i LOOP BACK TO HERE IF >1 SCROLLS 
i ROWS MOVE UP SO BUFSTR SHOULD TOO 


1516 

1517 


1531 


1532 


1533 


1534 

0766 

1535 

0769 

1536 

076B 

1537 

076D 

1538 

076F 

1539 

0771 

1540 

0774 

1541 

0776 

1542 

0778 

1543 

077A 

1544 

077C 

1545 

077E 

1546 

0781 

1547 

0783 

1548 

0785 

1549 

0787 

1550 

0789 

1551 

078B 

1552 

078D 

1553 

078 F 

1554 

0791 


AD 
C9 
FO 
A 5 
FO 
20 
A9 
C5 
BO 
85 
A6 
BD 
C5 
90 
FO 
EO 
DO 
A5 
FO 
C9 
DO 


00 
04 
07 
00 
03 
27 
27 
00 
02 
00 
00 
19 
00 
2A 
28 
08 
OA 
01 
13 
01 
1C 


00 


00 


OC 


1518 





; SUBEND: SUBTRACT ENDPT 

1519 





f 


1520 

0758 

38 



SUBEND: SEC 


1521 

0759 

B5 

00 

E 

LDA 

ROWAC, X 

1522 

075B 

E5 

00 

E 

SBC 

ENDPT 

1523 

075D 

95 

00 

E 

STA 

ROWAC, X 

1524 

075F 

B5 

01 

E 

LDA 

RGWAC+1, X 

1525 

0761 

E5 

01 

E 

SBC 

ENDPT+1 

1526 

0763 

95 

01 

E 

STA 

ROWAC+1, X 

1527 

0765 

60 



RTS 


1528 





/ 


1529 





I 


1530 





; RANGE: DO 

CURSOR RANGE 


FOR PARTIAL LINES, ROLL IN A "l" 

AGAIN IF PARTIAL LOGICAL LINE 

PLACE CURSOR AT NEW LINE NEAR THE BOTTOM 

• CONVERT ROW AND COL TO LOGCOL AND RETURN 


<X=0 OR 2) 


:ST. IF ERROR, POP STACK TWICE AND JMP RETURN 
(ERANGE IS EDITOR ENTRY POINT AND TEST IF EDITOR IS OPEN 
IF IT ISNT IT OPENS THE EDITOR AND CONTINUES) 

; IF B0TSCR=4 


E 

P 

E 

E 

E 

P 

E 


RANGE: 


LDA 

BOTSCR 

CMP 

#4 

BEQ 

RANGE 

/Ida 

D INDEX 

Lbeq 

RANGE 

JSR 

EOPEN 

LDA 

#39 

CMP 

RMARGN 

BCS 

RANGE3 

STA 

RMARGN 

LDX 

DINDEX 

LDA 

NOROWS, X 

CMP 

ROWCRS 

BCC 

RNGERR 

BEO— 

RNGERR 

'CPX 

ii 

JSJNE 

RANGE1 


THEN IT IS IN MIXED MODE AND OK 

I F MODE~= 0 — ~ 

THEN IT IS IN EDITOR MODE AND OK 
IF NOT, OPEN EDITOR 
**** ** RANGE CHECK RMARGN ***** SET UP AC 
***** RANGE CHECK RMARGN ***** COMPARE 
***** RANGE CHECK RMARGN ***** BRANCH GE 
***** RANGE CHECK RMARGN ***** BAD SO STORE 


; CHECK ROWS 

; (ERROR IF TABLE. GE. ROWCRS) 


; CHECK FOR 320X1 
i SPECIAL CASE IT 



CGLCRS+1 

RNGOK 

#1 

RNGERR 



; IF HIGH BYTE IS 0, COL IS OK 
; IF >1, BAD 


ERR LINE 

ADDR 

B 1 

B2 

B3 B4 


DISPLAY 

HANDLER — 1 0-30-78 — DISPLC 

PAGE 

25 

1555 

0793 

F0 

04 



BEQ 

RANGE2 

IF 1, GO CHECK LOW BYTE 



1556 

0795 

A5 

01 


E 

RANGE!: LDA 

COLCRS-H * FOR OTHERS, NON-ZERO HIGH BYTE 

IS BAD 


1557 

0797 

DO 

16 



BNE 

RNGERR 




1558 

0799 

BD 

08 

OC 

P 

RANGE2: LDA 

COLUMN, X 

CHECK LOW BYTE 



1559 

079C 

C5- 

00 


E 

CMP 

COLCRS 




1560 

079E 

90 

OF 



BCC 

RNGERR 




1561 

07A0 

FO 

OD 



BEG 

RNGERR 




1562 

07A2 

A9 

01 


RNGOK: LDA 

#SUCCES ; SET STATUS OK 



1563 

07A4 

85 

00 


E 

STA 

DSTAT 




1564 

07A6 

A9 

80 



LDA 

#BRKABT 

PREPARE BREAK ABORT STATUS 



1565 

07A8 

A6 

00 


E 

LDX 

BRKKEY 

CHECK BREAK KEY FLAG 



1566 

07AA 

85 

00 


E 

STA 

ERKKEY 

'CLEAR ' BREAK 



1567 

07AC 

FO 

06 



BEG 

RNGER2 

IF BREAK, QUIT IMMEDIATELY AND 

RETURN 

TO Cl 

1568 

07 AE 

60 




RTS 





1569 

07 AF 

20 

F4 

04 

P 

RNGERR : JSR 

HOME 

ON RANGE ERROR, BRING CURSOR BACK 


1570 

07B2 

A9 

8D 



LDA 

#CRSROR ; SHOW CURSOR OVERRANGE ERROR 



1571 

07B4 

85 

00 


E RNGER2: STA 

DSTAT 




1572 

07B6 

68 



RNGER1: PL A 


RESTORE STACK (THIS ROUTINE IS 

ALWAYS 

1 LEV 

1573 

07B7 

68 




PLA 


AWAY FROM RETURN TO CIO) 



1574 

07B8 

A5 

00 


E 

LDA 

SWPFLG 

IF SWAPPED, SWAP BACK 



1575 

07BA 

10 

03 



BPL 

RETUR3 




1576 

07BC 

4C 

00 

OA 

P 

JMP 

SWAP 




1577 

07BF 

4C 

A2 

02 

P RETUR3: JMP 

RETUR1 ; RETURN TO CIO 



1578 












1579 












1580 












1581 






OFFCRS 

RESTORE OLD DATA UNDER CURSOR SO IT CAN BE MOVED 



1582 












1583 

07C2 

AO 

00 


OFFCRS: LDY 

#0 




1584 

07C4 

A5 

01 


E 

LDA 

OLDADR+1 




1585 

07C6 

FO 

04 



BEQ 

0FF090 

DON ' T STORE TO PAGE 0. 



1586 

07C8 

A5 

00 


E 

LDA 

OLDCHR 




1587 

07CA 

91 

00 


E 

STA 

(OLDADR), Y 




1588 

07CC 

60 



0FF090: RTS 





1589 












1590 












1591 












1592 






BITMAP 

ROUTINES: 




1593 












1594 






BITCON 

PUT 

MASK IN BITMSK 

AND INDEX IN X 



1595 






BITPUT 

PUT 

CARRY INTO BITMAP 



1596 






BITROL 

ROL 

CARRY INTO EOTTOM OF BITMAP (SCROLL) 



1597 






BITSET 

SET 

PROPER BIT 




1598 






BITCLR 

CLEAR PROPER BIT 




1599 






BITGET 

RETURN CARRY SET IF BIT IS THERE 



1600 






LOGGET 

DO 

BITGET FOR LOGMAP INSTEAD OF TABMAP 



1601 












1602 

07CD 

48 



BITCON: PHA 





1603 

07CE 

29 

07 



AND 

#7 




1604 

07D0 

AA 




TAX 


GET MASK 



1605 

07D1 

BD 

42 

OC 

P 

LDA 

MASKTB, X 




1606 

07D4 

85 

00 


E 

STA 

BITMSK 




1607 

07D6 

68 




PLA 


PROCESS INDEX 



1608 

07D7 

4A 




LSR 

A 





ERR LINE 

ADDR 

B 1 B2 B3 B4 


DISPLAY HANDLER — 10-30-78 — DISPLC 

1609 

07 DB 

4A 



LSR 

A 

1610 

07 D9 

4A 



LSR 

A 

1611 

07 DA 

AA 



TAX 


1612 

07DB 

60 



RTS 


1613 




I 



1614 




l 



1615 

07 DC 

2E 02 00 

E 

BITROL: 

ROL 

LOGMAP +2 

1616 

07DF 

2E 01 00 

E 


ROL 

LOGMAP +1 

1617 

07E2 

2E 00 00 

E 


ROL 

LOGMAP 

1618 

07E5 

60 



RTS 


1619 




I 



1620 




i 



1621 

07E6 

90 OC 


BITPUT: 

BCC 

BITCLR i AND RETURN 

1622 




i OTHERWISE 

FALL THROUGH TO BITSET AND RETURN 

1623 

07E8 

20 CD 07 

P 

BITSET: 

JSR 

BITCON 

1624 

07EB 

8D 00 00 

E 


LDA 

TABMAP, X 

1625 

07 EE 

05 00 

E 


ORA 

B ITMSK 

1626 

07F0 

9D 00 00 

E 


STA 

TABMAP, X 

1627 

07F3 

60 



RTS 



PACE 


26 


1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 


07F4 

07F7 

07F9 

07FB 

07FE 

0801 


20 

A5 

49 

3D 

9D 

60 


CD 

00 

FF 

00 

00 


07 


P 

E 


BITCLR 


00 

00 


E 

E 


JSR 

LDA 

EOR 

AND 

STA 

RTS 


BITCON 
B ITMSK 
#*FF 
TABMAP, X 
TABMAP, X 


0802 A5 00 


LOGGET: LDA 


ROWCRS 


1637 

0804 

18 




L01GET: 

CLC 


1638 

0805 

69 

78 



L02GET : 

ADC 

#120 

1639 

0807 

20 

CD 

07 

P 

BITGET: 

JSR 

BITCON 

1640 

080A 

18 





CLC 


1641 

080B 

BD 

00 

00 

E 


LDA 

TABMAP, 

1642 

080E 

25 

00 


E 


AND 

B ITMSK 

1643 

0810 

FO 

01 




BEG 

BITGE1 

1644 

0812 

38 





SEC 


1645 

0813 

60 




BITGE1: 

RTS 


1646 






i 




; TABMAP TO LOGMAP OFFSET. 


1647 

1648 

1649 

1650 


1651 

1652 

0814 

AD 

00 00 

1653 

0817 

A4 

00 

1654 

0819 

CO 

OF 

1655 

08 IB 

BO 

17 

1656 

08 ID 

CO 

OC 

1657 

08 IF 

BO 

04 

1658 

0821 

CO 

03 

1659 

0823 

BO 

OF 

1660 

0825 

2A 


1661 

0826 

2A 


1662 

0827 

2A 



INATAC: INTERNAL ( CHAR ) TO ATASC 1 1 ( ATACHR ) CONVERSION 


E 

E 


INATAC: 


INATAO 



LDA 

CHAR 



r 

T75y" 

D INDEX 

; IF GRAPHICS MODES 


CP Y 

#15 




BCS 

INATA1 

/ MODE 

>= 15. 


CPY 

#12 




BCS 

INATAO 

; MODE 

= 12-14. 


CPY 

#3 

; MODE 

>= 3. 


BCS 

INATA1 

; THEN 

DON'T CHANGE 

): 

■ROT 

A 




ROL 

A 




ROL 

A 




CHAR 


ERR LINE ADDR B1 B2 B3 B4 


DISPLAY HANDLER — 1 0-30-78 


DTSPI C. 


PAGF 


ERR LINE 

ADDR 

B 1 

B2 

B3 B4 


DISPLAY HANDLER 

! — 10-30- 

78 — DISPLC 


1663 

0828 

2A 




ROL 

A 



1664 

0829 

29 

03 



AND 

#3 



1665 

082B 

AA 




TAX 




1666 

082C 

AD 

00 

00 

E 

LDA 

CHAR 



1667 

082F 

29 

9F 



AND 

#*9F 



1668 

0831 

ID 

93 

OC 

P 

ORA 

INTATA, X 



1669 

0834 

8D 

00 

00 

E 

INATA1 : STA 

ATACHR 



1670 

0837 

60 




M0V090: RTS 




1671 






l 




1672 






t 




1673 






i MOVLIN: 




1674 






I 




1675 

0838 

A6 

00 


E 

MOVLIN: LDX 

RAMTOP 

i FRMADR : = MEMTOP 

-80. 

1676 

083A 

CA 




DEX 


i TOADR : = MEMTOP - 

- 40. 

1677 

083B 

86 

01 


E 

STX 

FRMADR+1 



1678 

083D 

86 

01 


E 

STX 

TOADR+1 



1679 

083F 

A9 

BO 



LDA 

#*B0 

; *XX00-80. 


1680 

0841 

85 

00 


E 

STA 

FRMADR 



1681 

0843 

A9 

D8 



LDA 

#*D8 

; $X XQ0-40. 


1682 

0845 

85 

00 


E 

STA 

TOADR 



1683 






i 




1684 

0847 

A6 

00 


E 

LDX 

ROWCRS 



1685 






# 




1686 

0849 

E8 




M0V020: INX 


; DONE? 


1687 

084A 

EC 

00 

00 

E 

CPX 

BOTSCR 



1688 

084D 

F0 

E8 



BEQ 

M0V090 

; YES. 


1689 






i 




1690 

084F 

AO 

27 



LDY 

#39 



1691 

0851 

B 1 

00 


E 

M0VQ30: LDA 

(FRMADR), Y 

; MOVE DATA. 


1692 

0853 

91 

00 


E 

STA 

(TOADR), Y 



1693 

0855 

88 




DEY 




1694 

0856 

10 

F9 



BPL 

M0V030 



1695 






I 




1696 

0858 

38 




SEC 




1697 

0859 

A5 

00 


E 

LDA 

FRMADR 

i TOADR := FRMADR. 


1698 

085B 

85 

00 


E 

STA 

TOADR 



1699 

085D 

E9 

28 



SBC 

#40 

; FRMADR : = FRMADR 

-40. 

1700 

085F 

85 

00 


E 

STA 

FRMADR 



1701 

0861 

A5 

01 


E 

LDA 

FRMADR+1 



1702 

0863 

85 

01 


E 

STA 

TOADR+1 



1703 

0865 

E9 

00 



SBC 

#0 



1704 

0867 

85 

01 


E 

STA 

FRMADR+1 



1705 

0869 

4C 

49 

08 

P 

JMP 

M0V020 



1706 






i 




1707 






; EXTEND: EXTEND BIT MAP FROM ROWCRS (EXTEND 

LOGICAL 

1708 






i 




1709 

086C 

08 




EXTEND: PHP 


; SAVE CARRY 


1710 

086D 

AO 

17 



LDY 

#23 



1711 

086F 

98 




EXTEN1 : TYA 




1712 

0870 

20 

04 

08 

P 

JSR 

L01GET 



1713 

0873 

08 




PHP 




1714 

0874 

98 




TYA 




1715 

0875 

18 




CLC 




1716 

0876 

69 

79 



ADC 

#121 




PAGE 


27 


ERR LINE ADDR B1 B2 B3 

B4 

DISPLAY HANDLER — 10-30-78 — DISPLC PAGE 

1717 0878 28 


PLP 


1718 0879 20 E6 07 

P 

JSR 

BITPUT 

1719 087C 88 


DEY 


1720 087D 30 04 


BMI 

EXTEN4 

1721 087F C4 00 

E 

CP Y 

ROWCRS 

1722 0881 BO EC 


BCS 

EXTEN1 

1723 0883 A 5 00 

E 

EXTEN4: LDA 

ROWCRS 

1724 0885 18 


CLC 


1725 0886 69 78 


ADC 

#120 

1 726 0888 28 


PLP 


1727 0889 4C E6 07 

P 

JMP 

BITPUT ; STORE NEW LINE'S BIT AND RETURN 

1728 


i 

1729 


i CLRLIN: CLEAR 

LINE CURSOR IS ON 

1730 


j 


1731 088C A5 00 

E 

CLRLIN: LDA 

LMARGN 

1732 088E 85 00 

E 

STA 

COLCRS 

1733 0890 20 56 06 

P 

JSR 

CONVRT 

1734 0893 38 


SEC 


1735 0894 A5 00 

E 

LDA 

RMARGN 

1736 0896 E5 00 

E 

SBC 

LMARGN 

1737 0898 AS 


TAY 


1738 0899 A9 00 


LDA 

#0 

1739 089B 91 00 

E 

CLRLI1: STA 

( ADR ESS ) / Y 

1740 089D 88 


DEY 


1741 089E 10 FB 


BPL 

CLRLI1 

1742 08A0 60 


RTS 


1743 


t 


1744 


i SCROLL: SCROLL SCREEN FROM BOTTOM TO TOP. 

1745 




1746 08A1 20 DC 07 

P 

SCROLL: JSR 

BITROL ; ROLL IN CARRY. 

1747 


/ 


1748 08A4 AD 00 00 

E 

SCR005: LDA 

FINE ; FINE SCROLLING? 

1749 08A7 FO 28 


BEG 

SCR019 ; NO. 

1750 


/ 


1751 08 A9 AD 00 00 

E 

SCR007: LDA 

VSFLAG ; JUST IN CASE! 

1752 08AC DO FB 


BNE 

SCR007 ; PRIOR SCROLL NOT DONE YET. 

1753 


/ 


1754 08AE A9 08 


LDA 

#8 i SET VERTICAL SCROLL FLAG. . 

1755 08B0 8D 00 00 

E 

STA 

VSFLAG 

1756 


/ 


1757 08B3 AD 00 00 

E 

SCR010: LDA 

VSFLAG ; WAIT FOR FINE SCROLL TO COMPLETE. 

1758 08B6 C 9 01 


CMP 

#1 ; WAITING FOR START OF LAST SCAN. 

1759 08B8 DO F9 


BNE 

SCR010 

1760 


i 


1761 08BA AD OB D4 


SCR015: LDA 

VCOUNT ; WAIT FOR SAFE PLACE (START OF SCAN 

1762 08BD C9 40 


CMP 

#$40 

1763 08BF BO F9 


BCS 

SCR015 

1764 


i 


1765 08C 1 A2 OD 


LDX 

#$0D 

1766 08C3 AD 00 00 

E 

LDA 

BOTSCR i SPLIT SCREEN? 

1767 08C6 C9 04 


CMP 

#4 

1768 08C8 DO 02 


BNE 

SCR018 ; NO. 

1769 08CA A2 70 


LDX 

#$70 ; YES. 

1770 


$ 



ERR LINE 

ADDR 

B 1 

B2 B3 B4 


DISPLAY HANDLER 

— 10-30- 

1771 

08CC 

EC 

OB D4 


SCR018: CPX 

VCOUNT 

1772 

08CF 

BO 

FB 


BCS 

SCR018 

1773 





i 


1774 

08D1 

20 

44 OA 

P 

SCR019: JSR 

PUTMSC 

1775 







1776 





; SCROLL SCREEN 

FOR DELETE 

1777 







1778 

08D4 

A5 

00 

E 

SCR0L1 : LDA 

ADRESS 

1779 

08D6 

A6 

01 

E 

LDX 

ADRESS+ 1 

1780 





i 


1781 

08D8 

E8 



SCR300: INX 


1782 

08D9 

E4 

00 

E 

CPX 

RAMTOP 

1783 

08DB 

FO 

06 


BEQ 

SCR310 

1784 





i 


1785 

08DD 

38 



SEC 


1786 

08DE 

E9 

10 


SBC 

#*10 

1787 

08E0 

4C 

D8 08 

P 

JMP 

SCR300 

1788 





i 


1789 

08E3 

69 

27 


SCR310: ADC 

#39 

1790 

OSES 

FO 

22 



SCR^40 

1791 





i 


1792 

08E7 

AS 



sce3<$: TAY 


1793 

08E8 

85 

00 

E 

r STA 

COUNTR 

1794 

08EA 

38 



SEC 


1795 

08EB 

A5 

00 

E 

LDA 

ADRESS 

1796 

08ED 

E5 

00 

E 

SBC 

COUNTR 

1797 

08EF 

85 

00 

E 

STA 

ADRESS 

1798 

08F1 

BO 

02 


BCS 

SCR020 

1799 

08F3 

C6 

01 

E 

DEC 

ADRESS+1 

1800 





i 


1801 

08F5 

A5 

00 

E 

SCR020: LDA 

ADRESS 

1802 

08F7 

18 



CLC 


1803 

08F8 

69 

28 


ADC 

#40 

1804 

08FA 

85 

00 

E 

STA 

COUNTR 

1805 

08FC 

A5 

01 

E 

LDA 

ADRESS+1 

1806 

08FE 

69 

00 


ADC 

#0 

1807 

0900 

85 

01 

E 

STA 

COUNTR+1 

1808 





i 


1809 

0902 

B 1 

00 

E 

SCR 030: LDA 

(COUNTR ) / Y 

1810 

0904 

91 

00 

E 

STA 

(ADRESS) / Y 

1811 

0906 

C8 



I NY 


1812 

0907 

DO 

F9 


BNE 

SCR030 

1313 





} 


1814 

0909 

AO 

10 


SCR 040: LDY 

#16 

1815 

090B 

A5 

00 

E 

LDA 

ADRESS 

1816 

090D 

C9 

D8 


CMP 

#~40 

1817 

090F 

FO 

OB 


BEQ 

SCR050 

1818 





/ 


1819 

0911 

18 



CLC 


1820 

0912 

69 

FO 


ADC 

#240 

1821 

0914 

85 

00 

E 

STA 

ADRESS 

1822 

0916 

90 

DD 


BCC 

SCR020 

1823 





i 


1824 

0918 

E6 

01 

E 

INC 

ADRESS+1 


3 


DISPLC 


PAGE 


29 


i LET THE SCAN GET A BIT AHEAD. 
; ADRESS := SAVMSC. 

; CALCULATE BYTES TO MOVE. 



; NOW MOVE THE DATA DOWN. 


; COUNTR. : = ADRESS + 40. 


; ADRESS ( Y ) : = COUNTR < Y ) . 


; 256-16 TIMES. 

; (-240). 

; ADRESS : = ADRESS + 240. 
; ALL DONE? 

; YES. 


AT >£€ SS + | 

RAKTOp 

SCM>S0 

ip 


ERR LINE ADDR B1 B2 B3 B4 


DISPLAY HANDLER — 10-30-78 — DISPLC 


PAGE 


30 


1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 


091 A DO D9 


09 1C 
09 ID 
09 IF 
0921 
0923 
0925 

0927 

0929 

092A 


18 

AS 00 
69 D8 
85 00 
A9 00 
AO 27 

91 00 
88 

10 FB 


1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 
1861 
1862 

1863 

1864 

1865 

1866 
1867 


093E 

0940 

0942 

0944 

0947 

0948 
094A 
094C 
094 E 


69 28 
85 00 
C6 00 
4C 34 09 
18 

A5 00 
65 00 
85 00 
60 


BNE 


SCR020 


i (JMP). 



ADC 


i DATA ALL MOVED. 

COUNTR 
#16O-Mr6+'40 

COUNTR ; ( DO ESN / T QENERATF 


SCR 060: 


LDA 

#0 

LDY 

#39 

STA 

(COUNTR), Y 

DEY 


BPL 

SCR060 

JMP 

DOLCOL 



; NOW CLEAR THE LAST LINE. 



; AND RETURN. 


DOLCOL: DO LOGICAL COLUMN FROM BITMAP AND COLCRS 


1843 





/ 




1844 

092C 

A9 

00 


DOLCOL: 

LDA 

#0 

; START WITH ZERO 

1845 

092E 

85 

00 

E 


STA 

LOGCOL 


1846 

0930 

A5 

00 

E 


LDA 

ROWCRS 


1847 

0932 

85 

00 

E 


STA 

HOLDI 


1848 

0934 

A5 

00 

E 

D0LC01: 

LDA 

HOLD I 

> ADD IN ROW COMPONENT 

1849 

0936 

20 

04 08 

P 


JSR 

L01GET 


1850 

0939 

BO 

OC 



BCS 

D0LC02 

i FOUND BEGINNING OF LINE 

1851 

093B 

A5 

00 

E 


LDA 

LOGCOL 

; ADD 40 AND LOOK BACK ONE 

1852 

093D 

18 




CLC 




E 

E 

P 

E 

E 

E 


ADC 

STA 

DEC 

JMP 

D0LC02: CLC 

LDA 
ADC 
STA 
RTS 


#40 

LQGCOL 

H0LD1 

D0LCQ1 

LOGCOL 

COLCRS 

LOGCOL 


; UP ONE LINE 


; ADD IN COLORS 


DQBUFC: COMPUTE BUFFER COUNT AS THE NUMBER OF BYTES FROM 


1868 

094F 

20 

EA 09 

1869 

0952 

A5 

00 

1870 

0954 

48 


1871 

0955 

A5 

00 

1872 

0957 

85 

00 

1873 

0959 

A5 

01 

1874 

095B 

85 

00 

1875 

095D 

A9 

01 

1876 

095F 

85 

00 

1877 

0961 

A2 

17 

1878 

0963 

A5 

00 



i 

BUFSTR TO END OF 

LOGICAL LINE 

P 

i 

DOBUFC : 

JSR 

PHACRS 


E 


LDA 

LOGCOL 




PHA 



E 


LDA 

BUFSTR 

; START 

E 


STA 

ROWCRS 


E 


LDA 

BUFSTR+1 


E 


STA 

COLCRS 




LDA 

#1 


E 


STA 

BUFCNT 



D0BUF1 : 

LDX 

#23 

i NORMAL 

E 


LDA 

SWPFLG 

; IF SWAPPED, 


ROW 3 IS THE LAST LINE ON SCREE 


j^AfATOp 
CooisjTRw. 1 

C.oo»oTI^ 


ERR LINE 

ADDR 

B 1 

B2 

1879 

0965 

10 

02 

1880 

0967 

A2 

03 

1881 

0969 

E4 

00 

1882 

096B 

DO 

OB 

1883 

096D 

A5 

00 

1884 

096F 

C5 

00 

1885 

0971 

DO 

05 

1886 

0973 

E6 

00 

1887 

0975 

4C 

88 

1888 

0978 

20 

B4 

1889 

097B 

E6 

00 

1890 

097D 

A5 

00 

1891 

097F 

C5 

00 

1892 

0981 

DO 

DE 

1893 

0983 

C6 

00 

1894 

0985 

20 

B4 

1895 

0988 

20 

13 

1896 

098B 

DO 

17 

1897 

098D 

C6 

00 

1898 

098F 

A5 

00 

1899 

0991 

C5 

00 

1900 

0993 

FO 

OF 

1901 

0995 

20 

B4 

1902 

0998 

A5 

00 

1903 

099A 

C5 

00 

1904 

099C 

DO 

02 

1905 

099E 

C6 

00 

1906 

09A0 

A5 

00 

1907 

09A2 

DO 

E4 

1908 

09A4 

68 


1909 

09A5 

85 

00 

1910 

09A7 

4C 

F5 

1911 




1912 




1913 




1914 




1915 




1916 




1917 

09AA 

20 

2C 

1918 

09AD 

A5 

00 

1919 

09 AF 

85 

00 

1920 

09B 1 

A5 

00 

1921 

09B3 

85 

01 

1922 

09B5 

60 


1923 




1924 




1925 




1926 




1927 




1928 




1929 




1930 

09B6 

A5 

00 

1931 

09B8 

C5 

00 

1932 

09BA 

DO 

02 


B3 B4 


09 

06 


04 

02 


04 


09 


09 
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BPL 

DOB 1 




LDX 

#3 


E 

DOB 1 : 

CPX 

ROWCRS ; TEST IF CRSR IS AT LAST SCREEN POSITION 



BNE 

D0BU1A 


E 


LDA 

COLCRS 


E 


CMP 

RMARGN 




BNE 

D0BU1A 


E 


INC 

BUFCNT i YES, SO FAKE INCRSR TO AVOID SCROLLING 

P 


JMP 

D0BUF2 


P 

D0BU1A: 

JSR 

INCRSB 


E 


INC 

BUFCNT 


E 


LDA 

LOGCOL. 


E 


CMP 

LMARGN 




BNE 

D0BUF1 ; NOT YET EOL 

E 


DEC 

ROWCRS , BACK UP ONE INCRSR 

P 


JSR 

CRSRLF 


P 

D0BUF2: 

JSR 

GETPLT 

TEST CURRENT COLUMN FOR NON-ZERO DATA 



BNE 

D0BUF4 

QUIT IF NON-ZERO 

E 


DEC 

BUFCNT 

DECREMENT COUNTER 

E 


LDA 

LOGCOL 

BEGINNING OF LOGICAL LINE YET? 

E 


CMP 

LMARGN 




BEQ 

D0BUF4 

YES, SO QUIT 

P 


JSR 

CRSRLF 

BACK UP CURSOR 

E 


LDA 

COLCRS 

IF LOGCOL=RMARGN, GO UP 1 ROW 

E 


CMP 

RMARGN 




BNE 

D0BUF3 


E 


DEC 

ROWCRS 


E 

D0BUF3: 

LDA 

BUFCNT 




BNE 

D0BUF2 

; LOOP UNLESS BUFCNT JUST WENT TO ZERO 


D0BUF4: 

PLA 



E 


STA 

LOGCOL 


P 


JMP 

PLACRS 

; AND RETURN. 


STRBEG: MOVE BUFSTR TO BEGINNING OF LOGICAL LINE. 


P 

STRBEG: 

JSR 

DOLCOL 

E 


LDA 

HOLD! 

E 


STA 

BUFSTR 

E 


LDA 

LMARGN 

E 

DELTI3: 

STA 

RTS 

BUFSTR+1 


i USE DOLCOL TO POINT HOLD! AT BOL 



; DELTIM: TIME 

TO DELETE A 

E 

DELTIA: LDA 

LOGCOL 

E 

CMP 

LMARGN 


BNE 

DELTIB 


LINE IF IT IS EMPTY AND AN EXTENSION 

; IF LOGCOLOLMARGN 
; THEN DONT MOVE UP ONE 
; LINE BEFORE TESTING DELTIM 


ERR 


LINE 

ADDR 

B 1 

B2 

B3 B4 


DISPLAY HANDLER 

t — 10-30- 

1933 

09BC 

C6 

00 


E 


DEC 

ROWCRS 

1934 

09BE 

20 

2C 

09 

P 

DELTIB: 

JSR 

DOLCOL 

1935 

09C1 

AS 

00 


E 

DELTIM: 

LDA 

LOGCOL 

1936 

09C3 

C5 

00 


E 


CMP 

LMARGN 

1937 

09C 5 

FO 

EE 




BEQ 

DELTI 3 

1938 

09C7 

20 

56 

06 

P 


JSR 

CQNVRT 

1939 

09CA 

A5 

00 


E 


LDA 

RMARGN 

1940 

09 CC 

38 





SEC 


1941 

09CD 

E 5 

00 


E 


SBC 

LMARGN 

1942 

09CF 

A8 





TAY 


1943 

09D0 

B 1 

00 


E 

DELTI 1 : 

LDA 

(ADRESS) , Y 

1944 

09D2 

DO 

El 




BNE 

DELTI 3 

1945 

09D4 

88 





DEY 


1946 

09D5 

10 

F9 




BPL 

DELTI 1 

1947 

09D7 

4C 

DB 

05 

P 

DELTI2: 

JMP 

DELL IB 


8 — DISPLC 

; TEST FOR EXTENSION 
i NO 

; SET UP COUNT 


PAGE 


32 


i FOUND A NON— 0 SO QUIT AND RETURN 


; DELETE A LINE AND RETURN 


1948 

1949 

1950 

1951 

1952 


1953 

09DA 

A2 2D 



TSTCTL: LDX 

#45 

1954 

09DC 

BD 53 

OC 

P 

TSTCT1 : LDA 

CNTRLS, X 

1955 

09 DF 

CD 00 

00 

E 

CMP 

ATACHR 

1956 

09E2 

FO 05 



BEQ 

TSTCT2 

1957 

09E4 

CA 



DEX 


1958 

09E5 

CA 



DEX 


1959 

09E6 

CA 



DEX 


1960 

09E7 

10 F3 



BPL 

TSTCT1 

1961 

09E9 

60 



TSTCT2: RTS 


1962 





i 


1963 





/ 


1964 





i 


1965 





i PUSH ROWCRS, COLORS AND 

1966 





i 


1967 

09EA 

A2 02 



PHACRS: LDX 

#2 

1968 

09EC 

B5 00 


E 

PHACR1: LDA 

ROWCRS, X 

1969 

09EE 

9D 00 

00 

E 

STA 

TMPROW, X 

1970 

09F1 

CA 



DEX 


1971 

09F2 

10 F8 



BPL 

PHACR1 

1972 

09F4 

60 



RTS 


1973 





i 


1974 





i 


1975 





i PULL COLCRS+ 1 , 

COLORS Al 

1976 





i 


1977 09F5 

A2 02 



PLACRS: LDX 

#2 

1978 09F7 

BD 00 00 

E 

PLACR1: LDA 

TMPROW, X 

1979 09FA 

95 00 


E 

STA 

ROWCRS, X 

1 980 09FC 

CA 



DEX 


1981 09FD 

10 F8 



BPL 

PLACR1 

1982 09FF 

60 



RTS 



TSTCTL : SEARCH CNTRLS TABLE TO SEE IF AT AC HR IS A CNTL CHAR 

; PREPARE TO SEARCH TABLE 


1983 

1984 
[985 
.986 


SWAP: IF MIXED MODE, SWAP TEXT CURSORS WITH REGULAR CURSORS 



ERR LINE 

ADDR 

B 1 

B2 

B3 B4 


DISPLAY 

HANDLER — 10-30 

1987 






i 



1988 

OAOO 

AD 

00 

00 

E 

SWAP: 

LDA 

BOTSCR 

1989 

0A03 

C9 

18 




CMP 

#24 

1990 

0A05 

FO 

17 




BEQ 

SWAP3 

1991 

0A07 

A2 

OB 




LDX 

#11 

1992 

0A09 

B5 

00 


E 

SWAP 1 : 

LDA 

ROWCRS/ X 

1993 

OAOB 

48 





PHA 


1994 

OAOC 

BD 

00 

00 

E 


LDA 

TXTROW. X 

1995 

OAOF 

95 

00 


E 


STA 

ROWCRS, X 

1996 

0A11 

68 





PLA 


1997 

0A12 

9D 

00 

00 

E 


STA 

TXTROW, X 

1998 

0A15 

CA 





DEX 


1999 

OA 16 

10 

FI 




BPL 

SWAP 1 

2000 

0A18 

A5 

00 


E 


LDA 

SWPFLG 

2001 

0A1 A 

49 

FF 




EOR 

#$FF 

2002 

OA 1C 

85 

00 


E 


STA 

SWPFLG 

2003 

0A1E 

4C 

A2 

02 

P 

SWAP3: 

JMP 

RETUR1 

2004 






/ 



2005 






/ 



2006 






; CLICK: 

MAKE 

CLICK THROUG 

2007 






I 



2008 

0A21 

A2 

7F 



CLICK: 

LDX 

#$7F 

2009 

0A23 

48 





PHA 


2010 

0A24 

8E 

IF 

DO 


CLICK1 : 

STX 

CONSOL 

2011 

0A27 

AD 

OB 

D4 



LDA 

VCOUNT 

2012 

0A2A 

CD 

OB 

D4 


CLICK2: 

CMP 

VCGUNT 

2013 

0A2D 

FO 

FB 




BEQ 

CLICK2 

2014 

0A2F 

CA 





DEX 


20 i 5 

0A30 

CA 





DEX 


2016 

0A31 

10 

FI 




BPL 

CLICK1 

2017 

0A33 

68 





PLA 


2018 

0A34 

60 





RTS 


2019 






i 



2020 









2021 






i COLCR : 

PUTS 

EITHER 0 OR 

2022 






# 



2023 

0A35 

A9 

00 



COLCR: 

LDA 

#0 

2024 

0A37 

A6 

00 


E 


LDX 

SWPFLG 

2025 

0A39 

DO 

04 




BNE 

COLCR 1 

2026 

0A3B 

A6 

00 


E 


LDX 

DINDEX 

2027 

0A3D 

DO 

02 




BNE 

CQLCR2 

2028 

0A3F 

A5 

00 


E 

COLCR 1: 

LDA 

LMARGN 

2029 

0A41 

85 

00 


E 

C0LCR2: 

STA 

COLORS 

2030 

0A43 

60 





RTS 


2031 






I 



2032 






I 



2033 






; PUTMSC : PUT 

SAVMSC INTO 

2034 






i 



2035 

0A44 

A5 

00 


E 

PUTMSC: 

LDA 

SAVMSC 

2036 

0A46 

85 

00 


E 


STA 

ADRESS 

2037 

0A48 

A5 

01 


E 


LDA 

SAVMSC+1 

2038 

0A4A 

85 

01 


E 


STA 

ADRESS+1 

2039 

0A4C 

60 





RTS 


2040 






I 




•78 


DISPLC 


PAGE 


33 


KEYBOARD SPEAKER 


WAIT FOR NEXT SCAN. 


; SET UP ADDRESS 


ERR LINE AD DR B1 B2 B3 

B4 

DISPLAY HANDLER — 10- 

2041 


PAGE 


2042 




2043 


1 


2044 


j DRAW — DRAW 

A LINE FR 

2045 


i (THE AL MILLER METHOD 1 

2046 0A4D A2 00 


DRAW: LDX 

#0 

2047 0A4F A 5 00 

E 

LDA 

ICCOMZ 

2048 0A51 C9 11 


CMP 

4411 

2049 0A53 F 0 08 


BEQ 

DRAWA 

2050 0A55 C9 12 


CMP 

#412 

2051 0A57 FO 03 


BEQ 

DRAWB 

2052 0A59 AO 84 


LDY 

#NVAL I D 

2053 0A5B 60 


RTS 


2054 0A5C E8 


DRAWB: INX 


2055 0A5D 8E 00 00 

E 

DRAWA: STX 

FILFLG 

2056 0A60 A5 00 

E 

LDA 

ROWCRS 

2057 0A62 8D 00 00 

E 

STA 

NEWROW 

2058 0A65 A5 00 

E 

LDA 

COLCRS 

2059 0A67 8D 00 00 

E 

STA 

NEWCOL 

2060 0A6A A5 01 

E 

LDA 

CQLCRS+1 

2061 0A6C 8D 01 00 

E 

STA 

NEWCOL+1 

2062 0A6F A9 01 


LDA 

#1 

2063 0A71 8D 00 00 

E 

STA 

ROW INC 

2064 0A74 8D 00 00 

E 

STA 

COLINC 

2065 0A77 38 


SEC 


2066 0A78 AD 00 00 

E 

LDA 

NEWROW 

2067 0A7B E5 00 

E 

SBC 

OLDROW 

2068 0A7D 85 00 

E 

STA 

DELTAR 

2069 0A7F BO OE 


BCS 

DRAW1 

2070 0A81 A9 FF 


LDA 

#$FF 

2071 0A83 8 D 00 00 

E 

STA 

ROW INC 

2072 0A86 A5 00 

E 

LDA 

DELTAR 

2073 0A88 49 FF 


EOR 

#*FF 

2074 0A8A 18 


CLC 


2075 0A8B 69 01 


ADC 

#1 

2076 0A8D 85 00 

E 

STA 

DELTAR 

2077 0A8F 38 


DRAW1 : SEC 


2078 0A90 AD 00 00 

E 

LDA 

NEWCOL 

2079 0A93 E5 00 

E 

SBC 

OLDCOL 

2080 0A95 85 00 

E 

STA 

DELTAC 

2081 0A97 AD 01 00 

E 

LDA 

NEWCOL+1 

2082 0A9A E5 01 

E 

SBC 

GLDCOL+1 

2083 0A9C 85 01 

E 

STA 

DELTAC+1 

2084 0A9E BO 17 


BCS 

DRAW2 

2085 OAAO A9 FF 


LDA 

#$FF 

2086 0AA2 8D 00 00 

E 

STA 

COLINC 

2087 0AA5 A5 00 

E 

LDA 

DELTAC 

2088 0AA7 49 FF 


EOR 

#$FF 

2089 0AA9 85 00 

E 

STA 

DELTAC 

2090 OAAB A5 01 

E 

LDA 

DELTAC +1 

2091 OAAD 49 FF 


EOR 

#*FF 

2092 OAAF 85 01 

E 

STA 

DELTAC+1 

2093 OAB 1 E6 00 

E 

INC 

DELTAC 

2094 0AB3 DO 02 


BNE 

DRAW2 


-78 


DISPLC 
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OLDROW, OLDCOL TO NEWROW, NEWCOl 
DM BASKETBALL) 

i TEST COMMAND: 411=:DRAW ♦12 S =FILL 


TEST FILL 
YES 

NO, SO RETURN INVALID COMMAND 


i PUT CURSOR INTO NEWROW, NEWCOL 


; SET UP INITIAL DIRECTIONS 


i DETERMINE DELTA ROW 


i DO DIRECTION AND ABSOLUTE VALUE 
; BORROW WAS ATTEMPTED 
; SET D I RECT I ON-DOWN 

; DEL.TAR = DELTAR ! 


; NOW DELTA COLUMN 


; TWO-BYTE QUANTITY 


i DIRECTION AND ABSOLUTE VALUE 
; BORROW WAS ATTEMPTED 
> SET DIRECTION - LEFT 

; DELTAC = JDELTACi 


; ADD ONE FOR TWOS COMPLEMENT 


ERR LINE 

ADDR 

B 1 

B2 B3 B4 


DISPLAY HANDLER 

! — 10- 

2095 

0AB5 

E6 

01 

E 


INC 

DELTAC+1 

2096 

0AB7 

A2 

02 


DRAW2: 

LDX 

#2 

2097 

0AB9 

AO 

00 



LDY 

#0 

2098 

OABB 

84 

01 

E 


STY 

COLAC+1 

2099 

OABD 

98 



DRAW3A: 

TYA 


2100 

OABE 

95 

00 

E 


STA 

ROWAC, X 

2101 

OACO 

B5 

00 

E 


LDA 

OLDROW, X 

2102 

0AC2 

95 

00 

E 


STA 

ROWCRS, X 

2103 

0AC4 

CA 




DEX 


2104 

0AC5 

10 

F6 



BPL 

DRAW3A 

2105 

0AC7 

A5 

00 

E 


LDA 

DELTAC 

2106 





i 

STA 

COUNTR 

2107 





# 

STA 

ENDPT 

2108 

0AC9 

E8 




INX 


2109 

OACA 

A8 




TAY 


21 10 

OACB 

A5 

01 

E 


LDA 

DELTAC+1 

2111 

OACD 

85 

01 

E 


STA 

COUNTR+1 

2112 

OACF 

85 

01 

E 


STA 

ENDPT+1 

2113 

0AD1 

DO 

OB 



BNE 

DRAWS 

2114 

0AD3 

A5 

00 

E 


LDA 

DELTAC 

2115 

0AD5 

C5 

00 

E 


CMP 

DELTAR 

2116 

0AD7 

BO 

05 



BCS 

DRAWS 

2117 

0AD9 

A5 

00 

E 


LDA 

DELTAR 

2118 

OADB 

A2 

02 



LDX 

#2 

2119 

OADD 

A8 




TAY 


2120 

OADE 

98 



DRAWS: 

TYA 


2121 

OADF 

85 

00 

E 


STA 

COUNTR 

2122 

0AE1 

85 

00 

cr 

U 


STA 

ENDPT 

2123 

0AE3 

48 




PHA 


2124 

0AE4 

A5 

01 

E 


LDA 

ENDPT+1 

2125 

0AE6 

4A 




LSR 

A 

2126 

0AE7 

68 




PLA 


2127 

0AE8 

6A 




ROR 

A 

2128 

0AE9 

95 

00 

E 


STA 

ROWAC, X 

2129 

OAEB 

A5 

00 

E 

DRAW4A: 

LDA 

COUNTR 

2130 

OAED 

05 

01 

E 


ORA 

COUNTR+1 

2131 

OAEF 

DO 

03 



BNE 

DR AW 11 

2132 

OAF 1 

4C 

9F OB 

P 


JMP 

DRAW10 

2133 

0AF4 

18 



DRAW11: 

CLC 


2134 

OAFS 

A5 

00 

E 


LDA 

ROWAC 

2135 

0AF7 

65 

00 

E 


ADC 

DELTAR 

2136 

0AF9 

85 

00 

E 


STA 

ROWAC 

2137 

OAFB 

90 

02 



BCC 

DRAWS 

2138 

OAFD 

E6 

01 

E 


INC 

ROWAC+1 

2139 

OAFF 

A5 

01 

E 

DRAWS: 

LDA 

ROWAC+1 

2140 

0B01 

C5 

01 

E 


CMP 

ENDPT+1 

2141 

OB 03 

90 

15 



BCC 

DRAW6 

2142 

0B05 

DO 

06 



BNE 

DRAW5A 

2143 

0B07 

A5 

00 

E 


LDA 

ROWAC 

2144 

0B09 

C5 

00 

E 


CMP 

ENDPT 

2145 

OBOB 

90 

OD 



BCC 

DRAW6 

2146 

0 BOD 

18 



DRAW5A: 

CLC 


2147 

OBOE 

A5 

00 

E 


LDA 

ROWCRS 

2148 

OB 10 

6D 

00 00 

E 


ADC 

ROWINC 


78 


DISPLC 
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; ZERO RAM FOR DRAW LOOP 


i FIND LARGER ONE (ROW OR COL) 
(PREPARE COUNTR AND ENDPT) 

; MAKE X 0 


; AUTOMATICALLY LARGER IF MSD>0 

; LOW COL >LOW ROW? 

; YES 


; PUT IN INITIAL CONDITIONS 


; SAVE AC 

; PUT LSB OF HIGH BYTE 
; INTO CARRY 
; RESTORE AC 

; ROR THE 9 BIT ACUMULATOR 
; TEST ZERO 

; IF COUNTER IS ZERO, LEAVE DRAW 
; ADD ROW TO ROWAC (PLOT LOOP) 


COMPARE ROW TO ENDPOINT 

IF HIGH BYTE OF ROW IS . LT. HIGH 

BYTE OF ENDPT, BLT TO COLUMN 


LOW BYTE 
ALSO BLT 

GE SO MOVE POINT 


ERR LINE ADDR B1 B2 B3 

B4 

DISPLAY HANDLER — 10-30- 

78 — DISPLC PAGE 36 

2149 OB 13 83 00 

E 


STA 

ROWCRS 


2150 OB 13 A2 00 



LDX 

#0 

i AND SUBTRACT ENDPT FROM ROWAC 

2131 OB 17 20 58 07 

P 


JSR 

SUBEND 


2132 OB 1 A 18 


DRAW6: 

CLC 


> DO SAME FOR COLUMN (DOUBLE BYTE ADD) 

2153 OB 1 B A5 00 

E 


LDA 

COLAC 

i ADD 

2154 OB 1 0 65 00 

E 


ADC 

DELTAC 


2155 OB IF 85 00 

E 


STA 

COLAC 


2156 0B21 A5 01 

E 


LDA 

COLAC+1 


2157 0B23 65 01 

E 


ADC 

DELTAC+1 


2158 0B25 85 01 

E 


STA 

COLAC-*- 1 


2159 0B27 C 5 01 

E 


CMP 

ENDPT+1 

; COMPARE HIGH BYTE 

2160 0B29 90 28 



BCC 

DRAWS 


2161 0B2B DO 06 



BNE 

DRAW6A 


2162 0B2D A5 00 

E 


LDA 

COLAC 

; COMPARE LOW BYTE 

2163 0B2F C5 00 

E 


CMP 

ENDPT 


2164 0B31 90 20 



BCC 

DRAWS 


2165 OB 33 2C 00 00 

E 

DRAW6A: 

BIT 

COL INC 

; + OR - ? 

2166 0B36 10 10 



BPL 

DRAW6B 


2167 0B38 C6 00 

E 


DEC 

COLCRS 

; DO DOUBLE BYTE DECREMENT 

2168 0B3A A5 00 

E 


LDA 

COLORS 


2169 0B3C C9 FF 



CMP 

#$FF 


2170 0B3E DO OE 



BNE 

DRAW7 


2171 0B40 A5 01 

E 


LDA 

COLCRS+1 


2172 OB 42 FO OA 



BEG 

DRAW7 

; DON'T DEC IF ZERO 

2173 0B44 C6 01 

E 


DEC 

COLCRS+1 


2174 0B46 10 06 



BPL 

DRAW7 

; (UNCONDITIONAL) 

2175 OB 48 E6 00 

E 

DRAW6B: 

INC 

COLCRS 

; DO DOUBLE BYTE INCREMENT 

2176 0B4A DO 02 



BNE 

DRAW7 


2177 0B4C E6 01 

E 


INC 

COLCRS+1 


2178 0E4E A2 02 


DRAW7: 

LDX 

#2 

; AND SUBTRACT ENDPT FROM COLAC 

2179 OB 50 20 58 07 

P 


JSR 

SUB END 


2180 OB 53 20 74 07 

P 

DRAW8: 

JSR 

RANGE 


2181 OB 56 20 4E 02 

P 


JSR 

OUTPLT 

i PLOT POINT 

2182 OB 59 AD 00 00 

E 


LDA 

FILFLG 

; TEST RIGHT FILL 

2183 0B5C FO 2F 



BEG 

DRAW9 


2184 0B5E 20 EA 09 

P 


JSR 

PHACRS 


2185 0B61 AD 00 00 

E 


LDA 

ATACHR 


2186 OB 64 8D 00 00 

E 


STA 

H0LD4 


2187 0B67 A5 00 

E 

DRAWS A: 

LDA 

ROWCRS 

; SAVE ROW IN CASE OF CR 

2188 0B69 48 



PHA 



2189 0B6A 20 BC 06 

P 


JSR 

INCRSA 

i POSITION CURSOR ONE PAST DOT 

2190 0B6D 68 



PLA 


; RESTORE ROWCRS 

2191 0B6E 85 00 

E 


STA 

ROWCRS 


2192 OB 70 20 74 07 

P 

DRAW8C : 

JSR 

RANGE 


2193 0B73 20 13 02 

P 


JSR 

GETPLT 

; GET DATA 

2194 OB 76 DO OC 



BNE 

DRAW8B 

; STOP IF NON-ZERO DATA IS ENCOUNTERED 

2195 0B78 AD 00 00 

E 


LDA 

FILDAT 

i FILL DATA 

2196 0B7B 8D 00 00 

E 


STA 

ATACHR 


2197 0B7E 20 4E 02 

P 


JSR 

OUTPLT 

; DRAW IT 

2198 0B81 4C 67 OB 

P 


JMP 

DRAW8A 

; LOOP 

2199 0B84 AD 00 00 

E 

DRAW8B: 

LDA 

H0LD4 


2200 0B87 8D 00 00 

E 


STA 

ATACHR 


2201 0B8A 20 F5 09 

P 


JSR 

PLACRS 


2202 0B8D 38 


DRAW9: 

SEC 


i DO DOUBLE BYTE SUBTRACT 



ERR LINE 

ADDR 

B 1 

B2 

B3 B4 

2203 

0B8E 

A5 

00 


E 

2204 

0B90 

E9 

01 



2205 

0B92 

85 

00 


E 

2206 

0B94 

A5 

01 


E 

2207 

0B96 

E9 

00 



2208 

0B98 

85 

01 


E 

2209 

0B9A 

30 

03 



2210 

0B9C 

4C 

EB 

OA 

P 

2211 

0B9F 

4C 

A2 

02 

P 


DISPLAY HANDLER — 10-30-78 


LDA 

SBC 

STA 

LDA 

SBC 

STA 

BMI 

JMP 

DRAW 10: JMP 


COUNTR 

#1 

COUNTR 
COUNTRY 1 
#0 

COUNTR +1 
DRAW10 
DRAW4A 
RETUR1 


DISPLC 
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ERR LINE ADOR Bl B2 B3 B4 


DISPLAY HANDLER — 10-30-78 — D1SPLC 
. PAGE 
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i TABLES 


0BA2 18 10 OA OA 

0BA6 10 1C 34 64 

OBAA C4 C4 C4 C4 

OBAE 17 1C 10 64 

0BB2 C 4 


; MEMORY ALLOCATION, INCLUDING SPLITSCREEN WINDOW 

i 

AL0CA1 . . BYTE 24, 16, 10, 10, 16, 28, 52, 100, 1 96, 196, 196, 196 


BYTE 23, 28, 16, 100, 196 


NUMBER OF DISPLAY LIST ENTRIES FOR MAIN SCREEN 


2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 
2261 


0BB3 

17 

17 

OB 

17 

NUMDLE: 

. BYTE 

23, 

23, 11 

, 23, 47, 47, 95, 95, 97, 97, 97, 97 

0BB7 

2F 

2F 

5F 

5 F 





OBBB 

61 

61 

61 

61 






OBBF 

12 

17 

OB 

BF 


. BYTE 

18, 

23, 1 1 

, 191, 97 

0BC3 

61 









0BC4 

13 

13 

09 

13 

MXDMDE: 

. BYTE 

19, 

19, 9, 

19, 39, 39, 79, 79, 65, 65, 65, 65 ; 

0BC8 

27 

27 

4F 

4F 





OBCC 

41 

41 

41 

41 






OB DO 

OF 

13 

09 

9F 


. BYTE 

15, 

19, 9, 

159, 65 

0BD4 

41 










ANTIC CODE FROM INTERNAL MODE CONVERSION TABLE 

ANTIC CODE DESCRIPTION 

2 40X2X8 CHARACTERS 

6 20X5X8 

7 20X5X16 

8 40X4X8 GRAPHICS 

9 80X2X4 

A 80X4X4 

B 160X2X2 

D 160X4X2 

F 320X2X1 

SAME AS 8 BUT GTI A 7 LUM 7 MODE 
SAME AS 8 BUT GTI A 7 COL /LUM REGISTER 
SAME AS 8 BUT GTI A 7 COLOR 7 MODE 

4072X10 — eHARAeqPERS- 

4 40X5X8 

5 40X5X16 

C 160X2X1 GRAPHICS 

E 160X4X1 


MODE 


2262 

0BD5 

22 

06 

07 

08 

ANCONV: . BYTE 

$22, 6, 7, 8, 9, 

2263 

0BD9 

09 

OA 

OB 

OD 



2264 

OBDD 

OF 

OF 

OF 

OF 



2265 

0BE1 

03 

04 

05 

OC 

. BYTE 

3, 4, 5, $C, $E 


ERR LINE ADDR Bl B2 B3 B4 


DISPLAY HANDLER — 10-30-78 — DISPLC 
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LINE 

ADDR 

B 1 

B2 

B3 

B4 

DISPLAY HANDLER — 10-30-78 — DISPLC 

2266 

2267 

0BE5 

OE 




1 


2268 






j 


2269 






i PAGE TABLE TELLS WHICH DISPLAY LISTS ARE IN DANGER OF 

2270 






; CROSSING A 256 BYTE PAGE BOUNDARY 

227 1 






f 


2272 

0BE6 

00 

00 

00 

00 

PAGETB : . BYTE 

0,0, 0,0, 0,0,0, 1, 1, 1, 1, 1 

2273 

OBEA 

00 

00 

00 

01 



2274 

OBEE 

01 

01 

01 

01 



2275 

0BF2 

00 

00 

00 

01 

. BYTE 

4 

iH 

6 

6 

2276 

2277 

0BF6 

01 




l 


2278 






i 


2279 






i THIS IS THE 

NUMBER OF LEFT SHIFTS NEEDED TO MULTIPLY 

2280 






i COLCRS BY * 

BYTES/ROW. (R0WCRS*5 ) / <2**DHLINE ) 

2281 






i 


2282 

0BF7 

03 

02 

02 

01 

DHLINE: . BYTE 

3, 2, 2, 1, 1, 2, 2, 3, 3, 3, 3, 3 

2283 

OBFB 

01 

02 

02 

03 



2284 

OBFF 

03 

03 

03 

03 


3, 3, 2, 3 

2285 

0C03 

03 

03 

03 

02 

. BYTE 

2286 

2287 

0C07 

03 




f 


2288 






i 


2289 






i COLUMN: NUMBER OF COLUMNS 

2290 






J 

40, 20, 20, 40, 80, 80, 160, 160, . LOW. 320, 80, 1 

2291 

0C08 

28 

14 

14 

28 

COLUMN: . BYTE 

2292 

OCOC 

50 

50 

AO 

AO 



2293 

0C10 

40 

50 

50 

50 



2294 

OC 14 

28 

28 

28 

AO 

. BYTE 

ya, 40, 40, 160, 160 

2295 

OC 18 

AO 






PAGE 39 


2296 

2297 

2298 

2299 

2300 


2306 

2307 

2308 

2309 

2310 

2311 


2317 

2318 

2319 


N0R0WS: NUMBER OF ROWS 


2301 

OC 19 

18 

18 

OC 

18 

NOROWS: . BYTE 

2302 

OC ID 

30 

30 

60 

60 


2303 

0C21 

CO 

CO 

CO 

CO 


2304 

0C25 

13 

18 

OC 

CO 

. BYTE 

2305 

0C29 

CO 






Y* 


, 24, 12, 192, 192 


DIV2TB : HOW MANY RIGHT SHIFTS FOR HCRSR FOR PARTIAL BYTE MODES 


2312 

0C2A 

00 

00 

00 

02 

DIV2TB: .BYTE 

2313 

0C2E 

03 

02 

03 

02 


2314* 

0C32 

03 

01 

01 

01 


2315 

0C36 

00 

00 

00 

03 

. BYTE 

2316 

0C3A 

02 






DMASKT: DISPLAY MASK TABLE 


IS S 


ERR LINE AOOR B1 B2 B3 B4 


2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 


0C3B FF FO OF 
0C3E CO 30 OC 03 


0C42 80 40 20 10 
0C46 08 04 02 01 


0C4A 00 01 03 07 


DISPLAY HANDLER — 10-30-78 — DISPLC 

i 

DMASKT: . BYTE *FF, *F0, *0F 

BYTE *C0, *30, *0C, *03 

MASKTB : BIT MASK (ALSO PART OF DMASKTB ! DO NOT SEPARATE ) 

MASKTB : .BYTE *80, *40, *20, * 1 0, *08, *04, *02, *0 1 


PAGE 


HMASK 


BYTE 


O, 1, 3, 7 


2336 

0C4E 

28 

CA 94 46 

COLRTB : . BYTE 

*28, *C A, *94 

2337 

0C52 

00 




2338 






2339 






2340 






2341 






2342 




; CNTRLS: CONTROL CODES AND 

2343 




; CONTROL CHARACTER 

2344 






2345 

0C53 

IB 


CNTRLS: . BYTE 

*1B 

2346 

0C54 

94 

04 

P . WORD 

ESCAPE 

2347 

0C56 

1C 


. BYTE 

*1C 

2348 

0C57 

9A 

04 

P . WORD 

CRSRUP 

2349 

OC 59 

ID 


. BYTE 

* 1 D 

2350 

0C5A 

A7 

04 

P . WORD 

CRSRDN 


2351 

0C5C 

IE 


2352 

0C5D 

B4 

04 

2353 

OC 5F 

IF 


2354 

0C60 

C5 

04 

2355 

0C62 

7D 


2356 

0C63 

D4 

04 

2357 

0C65 

7E 


2358 

0C66 

04 

05 

2359 

0C68 

7F 


2360 

0C69 

2E 

05 

2361 

0C6B 

9B 


2362 

0C6C 

OB 

07 

2363 

0C6E 

9C 


2364 

0C6F 

D 4 

05 

2365 

0C71 

9D 


2366 

0C72 

CO 05 

2367 

0C74 

9E 



2368 

2369 

2370 

2371 

2372 

2373 


0C75 

0C77 

0C78 

0C7A 

0C7B 

0C7D 


4 E 05 
9 F 

49 05 
FD 

OA 06 
FE 


. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 


$ IE 

CRSRLF 

*1F 

CRSRRT 

*7D 

CLRSCR 

*7E 

ES 

*7F 

TAB 

*9B 

DOCRWS 

*9C 

DELLIN 

*9D 

INSLIN 

*9E 

CLRTAB 

*9F 

SETTAB 

*FD 

BELL 

*FE 


ERR LINE ADDR B1 B2 B3 B4 


2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 


0C7E 

0C80 

0C81 


0C83 

0C84 

0C86 

0C87 

0C89 

0C8A 

0C8C 

0C8D 


89 05 
FF 

53 05 


1C 

13 06 
ID 

16 06 
IE 

1C 06 
IF 

IF 06 


P 

P 


DISPLAY HANDLER — 10-30-78 — DISPLC 

. WORD DELCHR 
. BYTE $FF 
.WORD I NSC HR 

SUPER FUNCTIONS (SUPERF 

SUPERS: 
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= 1 > 


P 

P 

P 

P 


. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 


$1C 

CHOME 

$1D 

CHBOT 

$1E 

CHLEFT 

$1F 

CHRIGT 


0C8F 40 00 20 60 


ATAINT: ATASC I TO INTERNAL TABLE 
ATAINT: .BYTE $40, $00, $20, $60 

INTATA: INTERNAL TO ATASCI TABLE 


2400 

0C93 

20 

40 

00 

60 

INTATA: . BYTE 

$20, $40, $00, $60 

2401 








2402 








2403 






; ATASCI: ATASC I I CONVERSION TABLE 

2404 








2405 

0C97 

6C 

6A 

3B 

8A 

ATASCI: .BYTE 

$6C , $6A, $3B, $8A, $8B, $6B, $2B, $2A 

2406 

0C93 

8B 

6B 

2B 

2A 



2407 

0C9F 

6F 

80 

70 

75 

. BYTE 

$6F , $80, $70, $75, $9B, $69, $2D, $3D 

2408 

0CA3 

9B 

69 

2D 

3D 



2409 

0CA7 







2410 

0CA7 

76 

80 

63 

8C 

. BYTE 

$76, $80, $63, $8C, $8D, $62, $78, $7A 

2411 

OCAB 

8D 

62 

78 

7A 



2412 

OCAF 

34 

80 

33 

36 

. BYTE 

$34, $80, $33, $36, $1B, $35, $32, $31 

2413 

0CB3 

IB 

35 

32 

31 



2414 

0CB7 







2415 

0CB7 

2C 

20 

2E 

6E 

. BYTE 

$2C , $20, $2E, $6E, $80, $6D, $2F, $81 

2416 

OCBB 

80 

6D 

2F 

81 



2417 

OCBF 

72 

80 

65 

79 

. BYTE 

$72, $80, $65, $79, $7F, $74, $77, $71 

2418 

0CC3 

7F 

74 

77 

71 



2419 

0CC7 







2420 

0CC7 

39 

80 

30 

37 

. BYTE 

$39, $80, $30, $37, $7E, $38, $3C, $3E 

2421 

OCCB 

7E 

38 

3C 

3E 



2422 

OCCF 

66 

68 

64 

80 

. BYTE 

$66, $68, $64, $80, $82, $67, $73, $61 

2423 

0CD3 

82 

67 

73 

61 



2424 

0CD7 







2425 

0CD7 







2426 

0CD7 

4C 

4A 

3A 

8A 

. BYTE 

$4C , $4A, $3A, $8A, $8B, $4B, $5C, $5E 

2427 

OCDB 

8B 

4B 

5C 

5E 




ERR LINE ADDR B1 B2 B3 B4 


DISPLAY HANDLER 


2428 

l OC DF 

4F 80 50 55 

. BYTE 

2429 

0CE3 

9B 49 5F 7C 


2430 

0CE7 



2431 

0CE7 

56 80 43 8C 

. BYTE 

2432 

OCEB 

8D 42 58 5A 


2433 

OC EF 

24 80 23 26 

. BYTE 

2434 

0CF3 

IB 25 22 21 


2435 

0CF7 



2436 

0CF7 

5B 20 5D 4E 

. BYTE 

2437 

OCFB 

80 4D 3F 81 


2438 

OCFF 

52 80 45 59 

. BYTE 

2439 

0D03 

9F 54 57 51 


2440 

0D07 



2441 

0D07 

28 80 29 27 

. BYTE 

2442 

ODOB 

9C 40 7D 9D 


2443 

ODOF 

46 48 44 80 

. BYTE 

2444 

0D13 

83 47 53 41 


2445 

0D17 



2446 

0D17 



2447 

OD 1 7 

OC OA 7B 86 

. BYTE 

2448 

0D1B 

80 OB IE IF 


2449 

0D1F 

OF 80 10 15 

. BYTE 

2450 

0D23 

9B 09 1C ID 


2451 

0D27 



2452 

0D27 

16 80 03 89 

. BYTE 

2453 

0D2B 

92 02 18 1A 


2454 

0D2F 

80 80 85 80 

. BYTE 

2455 

0D33 

IB 80 FD 80 


2456 

0D37 



2457 

0D37 

00 20 60 OE 

. BYTE 

2458 

0D3B 

80 OD 80 81 


2459 

0D3F 

12 80 05 19 

. BYTE 

2460 

0D43 

9E 14 17 11 


2461 

0D47 



2462 

0D47 

80 80 80 80 

. BYTE 

2463 

0D4B 

FE 80 7D FF 


2464 

0D4F 

06 08 04 80 

. BYTE 

2465 

0D53 

84 07 13 01 


2466 



i 

2467 i 

DD57 

1C ID IE IF 

FUNCKY: . BYTE 

2468 0D5B 

8E 8F 90 91 

. BYTE 


10-30-78 


DISPLC 
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$4F, $80/ $50/ $55, $9B, $49, $5F, $7C 

$56, $80/ $43, $8C , $8D, $42, $58, $5A 
$24/ $80, $23, $26, $1B, $25, $22, $21 

$5B, $20, $5D, $4E, $80, $4D, $3F , $81 
$52, $80, $45, $59, $9F , $54, $57, $51 

$28, $80, $29, $27, $9C, $40, $7D, $9D 
$46, $48, $44, $80, $83, $47, $53, $41 

$0C, $0A, $7B , $86, $80, $0B, $1E, $1F ; CONTROL 
$0F , $80, $10, $15, $9B , $09, $1C, $1D 

$16, $80, $03, $89, $92, $02, $18, $1A 
$80, $80, $85, $80, $1B , $80, $FD, $80 

$00, $20, $60, $0E, $80, $0D, $80, $81 
$12, $80, $05, $19, $9E, $14, $17, $11 

$80, $80, $80, $80, $FE, $80, $7D, $FF 
$06, $08, $04, $80, $84, $07, $13, $01 

$1C, $1D. $1E, $1F i FUNC 1-4. 

$8E, $8F, $90, $91 ; SHIFT FUNC 1-4. 


ERR LINE ADDR B1 B2 B3 B4 


DISPLAY HANDLER — 10-30-78 — DISPLC 
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2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 


KEYBOARD CHARACTER INTERRUPT SERVICE 


0D5F 

0D62 

0D65 

0D67 

0D6A 

0D6C 

0D6F 

0D71 

0D73 

0D76 

0D78 

0D7B 

0D7D 

0D80 

0D82 

0D84 

0D86 

0D88 

0D8B 

0D8D 

0D90 

0D93 

0D95 

0D98 

0D9A 

0D9C 

0D9F 

0DA1 

0DA4 

0DA6 

0DA9 
ODAC 
ODAE 
ODB 1 
0DB3 
0DB6 
0DB8 
ODBB 
ODBE 
ODCO 
0DC3 
0DC5 
0DC7 
ODCA 
ODCD 
ODDO 


AD 09 D2 
CD 00 00 
DO 05 
AD 00 00 
DO 5B 
AD 09 D2 
C9 9F 
DO OF 
AD 00 00 
DO 46 
AD 00 00 
49 FF 
8D 00 00 
BO 3C 
29 3F 
C9 11 
DO OD 
AD 00 00 
DO 31 
AD 09 D2 
8D 00 00 
DO 29 
AD 09 D2 
C9 84 
DO 1C 

AD 00 00 
DO 3F 
AD 01 D3 
29 FD 
8D 01 D3 

AD 00 00 
FO 32 
8D 00 00 
A9 00 
8D 00 00 
FO 28 
8D 00 00 
8D 00 00 
A9 03 
8D 00 00 
A9 00 
85 00 
AD 00 00 
8D 00 00 
AD 00 00 
DO OE 


E 

E 


E 

E 

E 


E 

E 

E 

E 

E 


E 

E 

E 

E 


PIRQ5: LDA 

CMP 
BNE 
LDA 
BNE 

PIR010: LDA 

CMP 
BNE 
LDA 
BNE 
LDA 
EOR 
STA 
BCS 

PIR020: AND 

CMP 
BNE 
LDA 
BNE 
LDA 
STA 
BNE 

PIR025: LDA 

CMP 
BNE 

i 

LDA 

BNE 

LDA 

AND 

STA 


LDA 

BEG 

STA 

LDA 

STA 

BEG 

STA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

BNE 


PIR030: 

PIR040: 

PIR045: 


KBCODE 

CHI 

PIR010 

KEYDEL 

PIR045 

KBCODE 

#CNTL1 

PIR020 

KEYDIS 

PIR040 

SSFLAG 

#$FF 

SSFLAG 

PIR040 

#$3F 

#HELP 

PIR025 

KEYDIS 

PIR040 

KBCODE 

HELPFG 

PIR040 

KBCODE 

#CNTLF2 

PIR030 

KEYDIS 

PIR050 

PORTB 

#$FD 

PORTB 

SDMCTL 

PIR050 

DMASAV 

#0 

SDMCTL 

PIR050 

CH 

CHI 

#3 

KEYDEL 

#0 

ATRACT 

KRPDEL 

SRTIMR 

SDMCTL 

PIR050 


TEST AGAINST LAST KEY PRESSED 
IF NOT , GO PROCESS KEY 
IF KEY DELAY BYTE > 0 
IGNORE KEY AS BOUNCE 
RESTORE AC 

TEST CONTROL 1 (SSFLAG) 

i KEYBOARD DISABLED? 
i YES. 


(UNCONDITIONAL) MAKE '-1 INVISIBLE. 
MAKE OFF SHIFT AND CTRL BITS. 

HELP KEY? 

NOT HELP KEY. 

KEYBOARD DISABLED? 

YES. 


i HELP KEY 
; ( JMP). 


— STORE CODE IN FLAG. 


; CONTROL FUNC 2? 

; NO 

KEYBOARD DISABLED? 

YES. 

SWITCH MODULATOR SWITCH. 


i SAVE DMA STATE & . 


; . . . DISABLE THE DMA. 


; (JMP). 


; INITIALIZE KEY DELAY FOR DEBOUNCE 
; CLEAR COLOR SHIFT BYTE 


; DMA INHIBITED? 
; NO. 


ERR LINE 

ADDR 

B 1 

B2 

B3 B4 


DISPLAY HANDLER 

— 10-30- 

78 — DISPLC 

2523 






i 



2524 

0DD2 

AD 

00 

00 

E 

LDA 

DMASAV 

i YES — RESTORE DMA. 

2525 

ODDS 

8D 

00 

00 

E 

STA 

SDMCTL 


2526 

ODDS 

AD 

01 

D3 


LDA 

PQRTB 

/ ENABLE ATARI IN SWITCHBOX 

2527 

ODDB 

09 

02 



ORA 

#$02 


2528 

ODDD 

8D 

01 

D3 


STA 

PORTB 


2529 






i 



2530 

ODEO 

68 




PIR050: PLA 



2531 

0DE1 

40 




RTI 



2532 






i 



2533 

0DE2 





. END 




ASSEMBLY ERRORS 


0 


DISPLAY HANDLER — 10-30-78 — DISPLC 


CROSS REFERENCE 


LABEL 


VALUE 


REFERENCE 


ACK 0041 

ADRESS E 0038 


ALLPOT 
ALOCAT 
AMFLAG 
AMINIT 
AM I SR A 
AMNAME 
AMVTAD 


D208 

0BA2 

D7FF 

D7F6 

D7FA 

D7F9 

D7EA 


452 

531 

557 

589 

591 

603 

604 

607 

609 

710 

712 

717 

719 

757 

815 

817 

884 

909 

911 

1153 

1155 

1156 

1159 

1160 

1256 

1258 

1356 

1363 

1366 

1368 

1370 

1374 

1387 

1390 

1392 

1394 

1396 

1399 

1400 

1412 

1414 

1417 

1419 

1421 

1739 

1778 

1779 

1795 

1797 

1799 

1801 

1805 

1810 

1815 

1821 

1824 

1943 

A 

2036 

2038 






U 

558 

-2220 








0 

0 

0 

0 

0 


ANCONV 

P 0BD5 

554 

-2262 


ANTIC 

D400 

0 



APPEND 

0001 

0 



APPMHI 

E 004E 

458 

1369 

1373 

ATACHR 

E 0013 

442 

769 

776 



886 

948 

1082 



2185 

2196 

2200 

ATAINT 

P 0C8F 

803 

-2395 


ATASCI 

P 0C97 

471 

474 

-2405 

ATRACT 

E 00 5 A 

462 

2518 


AUDC1 

D201 

0 



AUDC2 

D203 

0 



AUDC3 

D205 

0 



AUDC4 

D207 

0 



AUDCTL 

D208 

0 



AUDF1 

D200 

0 



AUDF2 

D202 

0 



AUDF3 

D204 

0 



AUDF4 

D206 

0 



B192HI 

0000 

0 



B192L0 

0028 

0 



B600HI 

0005 

0 



B600L0 

OOCC 

0 



BAD IOC 

0086 

0 



BADMOD 

‘ 0091 

506 



BEEPFN 

OOOA 

0 



BEEPFP 

0008 

0 



BEEPNN 

00 IE 

0 



BEEPNP 

0019 

0 



BELL 

P 060A 

860 

-1323 

2372 

BELLI 

P 060C 

-1324 

1326 


BIGGUN 

P 017E 

679 

-682 


BITCLR 

P 07F4 

1223 

1621 

-1629 


793 

1093 


832 

1095 


852 

1197 


875 

1669 


879 

1955 


BITCON 

P 07C0 

-’1602 

1623 

1629 

1639 



B X TOE 1 

P 0813 


-1645 





B ITOET 

P 0807 

121 1 

1471 

-1639 




B I TMSK 

E 0053 

459 

1606 

1625 

1630 

1642 


BITPUT 

P 07E6 

1305 

-1621 

1718 

1727 



BITROL 

P 07 DC 

— 161 5 

1746 





BITSET 

P 07E8 

1218 

-1623 





BOTSCR 

E OOOD 

440 

616 

626 

1115 

1 124 

1267 



1766 

1988 





BRKABT 

0080 

929 

1564 





BRKKEY 

E 0049 

456 

930 

1001 

1565 

1566 


BS 

P 0504 

-1182 

2358 





BS1 

P 052B 

1 184 

-1199 





BS2 

P 0523 

1192 

1 194 

-1196 




BS3 

P 0513 

1187 

-1 189 





BSA 

P 050A 

-1185 






BUFCNT 

E 0045 

455 

1906 

844 

868 

870 

1876 

1886 

BUFSTR 

E 0046 

456 

847 

849 

864 

866 

1173 



1508 

1871 

1873 

1919 

1921 


CART 

BFFC 

0 






CARTAD 

BFFE 

0 






CARTCS 

BFFA 

0 






CARTFG 

BFFD 

0 






CASET 

0060 

0 






CASSET 

0043 

0 






CH E 0000 

437 

466 

923 

932 

937 

2513 

CHI E 0021 

445 

2476 

2514 




CHACT E 0004 

438 

512 





CHACTL 

D401 

0 






CHAR E 

: 0012 

441 

763 

804 

806 

1652 

1666 

CHBAS E 

: 0003 

437 

509 

1060 

1075 



CHBASE 

D409 

0 






CHBOT P 

0616 

-1333 

2383 





CHKERR 

008F 

0 






CHKLOC 

4000 

0 






CHLEFT P 

06 1C 

-1336 

2385 





CHOME P 

0613 

-1331 

2381 





CHRIGT P 

061F 

-1338 

2387 





CLICK P 

0A21 

942 

1031 

1324 

-2008 



CLICK1 P 

0A24 

-2010 

2016 





CLICK2 P 

0A2A 

-2012 

2013 





CLOSE 

OOOC 

0 






CLRLI1 P 

089B 

-1739 

1741 





CLRLIN P 

088C 

1288 

-1731 





CLRSC2 P 

04 DD 

-1156 

1158 

1162 




CLRSC3 P 

04EC 

-1164 

1167 





CLRSCR P 

04D4 

740 

773 

-1152 

2356 



CLRTAB P 

054E 

-1222 

2368 





CLRTBS P 

0070 

-537 

539 





CLS 

007D 

771 






CNTL1 

009F 

2481 






CNTLF2 

0084 

2498 







1534 1687 


1889 1897 

1177 1506 



CNTRLS 

P 0C53 

906 

COLAC 

E 0058 

461 

COLBK 

D01 A 

0 

COLOR 

P 0A35 

1171 

COLOR 1 

P 0A3F 

2025 

C0LCR2 

P 0A41 

2027 

COLORS 

E 0047 

456 



1176 



1425 



1559 



2060 

COLINC 

E 002D 

448 

COLORO 

E 0009 

439 

C0L0R4 

E OOOC 

440 

COLPFO 

DO 16 

0 

C0LPF1 

DO 17 

0 

C0LPF2 

DO 18 

0 

C0LPF3 

D019 

0 

COLPMO 

DO 12 

0 

C0LPM1 

DO 13 

0 

C0LPM2 

DO 14 

0 

C0LPM3 

D01 5 

0 

COLRTB 

P 0C4E 

542 

COLUMN 

P 0C08 

1447 

COMPLT 

0043 

0 

C0MRE1 

P 04C2 

1135 

COMRET 

P 04A4 

1114 

CONSOL 

DO IF 

2010 

CONVRO 

P 066D 

1395 

CONVR 1 

P 0672 

-1399 

C0NVR2 

P 0683 

-1408 

CONVR 3 

P 0689 

1407 

CONVR 4 

P 063F 

1413 

CONVR T 

P 0656 

756 

COUNTR 

E 0059 

462 



1834 



2208 

CR 

009B 

777 

CRETRI 

GOOD 

0 

CRLOOP 

P 0255 

-789 

CRSINH 

E 0007 

438 

CRSRDN 

P 04A7 

-1122 

CRSRL1 

P 04BE 

1133 

CRSRLF 

P 04B4 

-1131 

CRSROR 

008D 

1570 

CRSRR1 

P 04CF 

-1147 

CRSRRT 

P 04C5 

-1142 

CRSRUP 

P 049A 

-1113 

CTIA 

DOOO 

0 

CTIMHI 

0000 

0 

CTIMLO 

0002 

0 

DBDDEC 

P 0622 

606 

DBDEC 

P 062E 

598 


908 

910 

1954 

-2345 



2098 

2153 

2155 

2156 

2158 

2162 

1480 

-2023 





-2028 






-2029 






848 

867 

1131 

1132 

1137 

1142 

1185 

1190 

1204 

1285 

1313 

1403 

1442 

1444 

1445 

1456 

1482 

1551 

1732 

1859 

1874 

1883 

1902 

2029 

2167 

2168 

2171 

2173 

2175 

2177 

2064 

2086 

2165 




543 






586 







-2336 






1558 
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0 

SAVADR 

E 003D 

453 


1275 


-2035 


547 

556 

642 

683 

1161 

1536 

1538 

-1540 

2180 

2192 


824 

826 

-829 

1096 

1577 

780 

783 

-821 

880 

913 


1144 

1191 

1451 

1541 

1543 

1939 





1554 

1557 

1560 

1561 

-1569 

1523 

1524 

1526 

2100 

2128 

2139 

2143 




846 

865 

1113 

1117 

1122 

1248 

1266 

1295 

1296 

1388 

1492 

1514 

1546 

1636 

1684 

1872 

1881 

1893 

1905 

1933 

1995 

2056 

2102 

2147 

2149 

2071 

2148 




610 

724 

727 

1257 

1259 


1774 

-465 

467 

468 

775 

-1556 

-1558 

-1544 

754 

774 

-1577 

1136 

1903 

-1571 

1548 

-1562 

1521 

2138 

789 

1193 

1483 

1846 

1992 

2063 

608 



SAVMSC 


E 003C 


SBUFSZ 

00 ID 

SCR005 

P 08A4 

SCR007 

P 08A9 

SCR010 

P 08B3 

SCR015 

P 08BA 

SCR018 

P 08CC 

SCR019 

P 0801 

SCR 020 

P 08F5 

SCR 030 

P 0902 

SCR040 

P 0909 

SCR050 

P 09 1C 

SCR060 

P 0927 

SCR300 

P 08D8 

SCR310 

P 08E3 

SCREDT 

0045 

SCRFLG 

E 0019 

SCRMEM 

0093 

SCR0L1 

P 08D4 

SCROLL 

P 08 A 1 

SDLSTL 

E OOOE 

SDMCTL 

E 0005 

SERIN 

D20D 

SEROUT 

D20D 

SETTAB 

P 0549 

SEX 

0000 

SHFAMT 

E 0041 

SHFL0K 

E 0002 

SHIFT 1 

P 0222 

SHIFT2 

P 027E 

SHIFTD 

P 021 B 

SHIFTU 

P 0276 

SIDWAY 

0053 

SIZEM 

DOOC 

SIZEPO 

D008 

SIZEP1 

D009 

SIZEP2 

DOOA 

SIZEP3 

DOOB 

SKCTL 

D20F 

SKRES 

D20A 

SKSTAT 

D20F 

SPACE 

0020 

SPEC I L 

OOOE 

SR T I MR 

E 0023 

SSFLAG 

E 0014 

STACK ! 

S 0000 

STATC 

0053 

STATIS 

OOOD 

ST I HER 

D209 

STORE f 

3 0626 


453 

2037 

590 

592 

0 



-1748 

-1751 

1752 


-1757 

1759 


-1761 

1763 


1768 

-1771 

1772 

1749 

-1774 


1798 

-1801 

1822 

-1809 

1812 


1790 

-1814 


1817 

-1827 


-1834 

1836 


-1781 

1787 


1783 

-1789 


0 



443 

1231 

1246 

1376 

1315 

-1778 


1504 

-1746 


440 

711 

713 

438 

513 

745 

0 



0 



-1217 

2370 


0 



454 

759 

807 

437 

470 

975 

760 

-763 


80S 

-81 1 


-759 

762 


-807 

810 


0 



0 



0 



0 



0 



0 



0 



0 



0 



0 



0 



446 

2520 


442 

786 

2485 

0 



0 



0 



0 



613 

632 

634 

667 

671 

686 

704 

707 

709 


690 


1825 


1505 


723 

746 


1430 

979 


2487 


638 

688 

715 


700 


1416 1420 2035 


726 

2507 2511 2521 


986 993 1087 


2525 


645 647 649 665 

691 694 699 701 

-1353 


STORE 1 

P 

062C 

-1356 





STORG 


5000 

0 





STRBEG 

P 

09AA 

1118 

-1917 




STRERR 

P 

0651 

1372 

-1376 




STROK 

P 

0655 

1354 

1362 

1371 

1375 

-1378 

SUBEND 

P 

0758 

-1520 

2151 

2179 



SUBTMP 

E 

001 A 

443 

1360 

1365 



SUCCES 


0001 

515 

830 

1562 



SUPERF 

E 

0028 

447 

890 

902 

925 

1054 

SUPERS 

P 

0C83 

906 

-2380 




SWAP 

P 

OAOO 

842 

856 

876 

882 

887 




-1988 





SWAP 1 

P 

0A09 

-1992 

1999 




SWAP3 

P 

OA IE 

1990 

-2003 




SWPFLG 

E 

0039 

452 

532 

1486 

1574 

1878 

TAB 

P 

052E 

-1203 

1212 

2360 



TAB 1 

P 

053F 

1206 

-1210 




TAB2 

P 

0546 

1209 

-1213 




TABMAP 

E 

0008 

439 

537 

1624 

1626 

1632 

TIMOUT 


008A 

0 





TINDEX 

E 

0006 

438 

530 




TMPCHR 

E 

0043 

455 

812 

816 



TMPLBT 

E 

001C 

444 





TMPRQW 

E 

00 IE 

445 

1969 

1978 



TOADR 

E 

004D 

457 

1678 

1682 

1692 

1698 

T0NE1 


0002 

0 





T0NE2 


0001 

0 





TRIGO 


D010 

0 





TRIG1 


D011 

0 





TRIG2 


DO 12 

0 





TRIG3 


DO 13 

0 





TRNRCD 


0089 

0 





TRUE 


0001 

0 





TSTCT1 

P 

09DC 

-1954 

1960 




TSTCT2 

P 

09E9 

1956 

-1961 




TSTCTL 

P 

09DA 

892 

1091 

-1953 



TXTCOL 

E 

0010 

441 

743 




TXTMSC 

E 

OOOA 

439 

549 

551 



TXTROW 

E 

OOOF 

441 

741 

1994 

1997 


UNLOCK 


0024 

0 





UPDNCM 

P 

04A2 

-1117 

1127 




VBWAIT 

P 

00D8 

-594 

596 




VCOUNT 


D40B 

594 

1761 

1771 

2011 

2012 

VDELAY 


DO 1C 

0 





VSCROL 


D405 

0 





VSFLAG 

E 

002F 

449 

1751 

1755 

1757 


WIRGHI 


0000 

0 





WIRGLN 


00B4 . 

0 





WIRGLP 


0096 

0 





WLEADN 


0480 

0 





WLEADP 


03C0 

0 





WRITE 


0057 

0 





WRONLY 


0083 

0 






896 


2000 


1633 


1702 















914 1576 


2002 2024 


1641 






